KITAP_BOLUM 1

Soru_1-2

8+12
## [1] 20
8*8 #fonksiyon ile de soyle yapilabilir:
## [1] 64
kare_al<- function(sayi){sayi*sayi}
kare_al(8)
## [1] 64
(5+5)/2
## [1] 5
sqrt(36)
## [1] 6

Soru_3

r1=5
alan1<- function(r1){3.14*r1*r1}
alan1(5)
## [1] 78.5
r2=10
alan2<- function(r2){3.14*r2*r2}
alan2(10)
## [1] 314
r3=15
alan3<- function(r3){3.14*r3*r3}
alan3(15)
## [1] 706.5
alan1(5)
## [1] 78.5
alan1(5)<alan2(10)
## [1] TRUE
ls()
## [1] "alan1"   "alan2"   "alan3"   "kare_al" "r1"      "r2"      "r3"
rm(list = ls())

Soru_4

z_puani<- function(x,y){(56-x)/y}

z_puani(40,4)
## [1] 4
z_puani(40,8)
## [1] 2
z_puani(40,16)
## [1] 1
z_puani(40,32)
## [1] 0.5

Soru_5-6-7-8

Normalde Rstudio da yaparken hata vermedi ama buraya yüklerken knit aşamasında hata veriyor, örmüyor, anlayamadım nedenini

Soru_9

set.seed(1000)
rnorm(n=100, mean=5, sd=10)
##   [1]   0.54221735  -7.05856569   5.41126314  11.39388408  -2.86554356
##   [6]   1.14510702   0.24132116  12.19750691   4.81494377  -8.73117759
##  [11]  -4.82427828  -0.54488702   6.21381189   3.79127684  -8.36041049
##  [16]   6.70057481   6.55078716   5.24931867 -15.46585414   7.13154106
##  [21]  31.70071664  -7.27016006  13.34247332  10.32571747  -1.46824963
##  [26]  11.03161261 -12.83844136   8.34942167  10.60975722  17.20935655
##  [31]   2.88546412  11.99429525  -2.06436682   0.34849055 -12.66198610
##  [36]   6.89288596   1.33819324  15.57601178  -2.41621462  -8.48359053
##  [41]  -0.17306432  19.11735702   6.85465028   4.56308557   2.84086625
##  [46]  19.63775346   7.29666637   6.07623634  -8.78102559  -4.68182883
##  [51]   7.51711380  -5.94693697   8.97642845  -4.96302004   6.00578012
##  [56]  14.53680281 -12.90322935   8.11701216  30.53988007  -3.60837756
##  [61]  10.43928442   1.07661964  17.35441898  16.96086439   0.04253099
##  [66]   2.05658779  -0.73497483  21.19208728  -4.56927673   5.41237120
##  [71]  -9.98310443  11.60959156   7.85457621  18.88866294   3.40656395
##  [76]   0.39081097   6.68438071  18.95493023  12.28426261   8.35089949
##  [81]  16.69276492   7.47966825   1.41850528  18.83493324   9.12069167
##  [86]   3.76992138   4.33770688 -18.22490877  -5.45656501  25.57875024
##  [91]  24.71532375 -14.20995197   9.62126070   3.39275936   3.95788468
##  [96]   9.67839401   9.43920815  13.28552808   1.12949878  25.18938163
set.seed(1000)                  
dagilim <- rnorm(n=100, mean=5, sd=10)
ortalama <- mean(dagilim)
standart_sapma<- sd(dagilim)

hist(dagilim,
     main="Dagilim Histogram??",
     xlab="Degerler",
     ylab="Frekans",
     col="blue",  
     border="black")