• Oturum açınca kullanılacak paketleri etkinleştirmeli.
Tools – Global Options – Pane Layout – yer değiştirme
Tools – Check for Package Updates
kare_al <- function(sayi){sayi*sayi} kare_al(sayi=3)
kuvvet_al <- function(sayi, kuvvet=2){sayi^kuvvet} kuvvet_al(2,5) kuvvet_al(9)
dikdortgen <- function(en=5,boy=10){ alan <- enboy cevre <- 2en + 2boy # (en+boy)2 kosegen <- sqrt(enen + boyboy) cikti <- c(alan,cevre,kosegen) names(cikti) <- c(“alan”,“cevre”,“kosegen”) cikti }
dikdortgen(en=5,boy=10)
dikdortgen <- function(en=5,boy=10){ alan <- enboy cevre <- 2en + 2boy # (en+boy)2 kosegen <- sqrt(enen + boyboy)
cikti <- list(alan= alan,cevre = cevre, kosegen = kosegen) cikti }
cikti1 <- dikdortgen(en=5,boy=10) cikti1\(alan cikti1\)cevre cikti1$kosegen
kare(kenar=5)
kare <- function(kenar=5){cevre <- 4kenar alan <- kenarkenar kosegen <- sqrt(kenarkenar2)
cikti <- list(alan = alan, cevre = cevre, kosegen = kosegen)
cikti }
x <- 1:1000 mean(x) avg <- function(x){sum(x) / length(x) } avg(x)