Ders İçi Çalışmalar

İlk hafta R da yapılan temel işlemleri deneyimledik.

3+5
## [1] 8
x <- 5
y <- 10
z <- x + y

Sonrasında çalışma alanımı değiştirmeyi öğrendik.Dikdörtgen alan hesaplamasını en ve boy nesnelerini tanımlayarak hesapladık.

en <-10
boy<-40
en*boy
## [1] 400

Matematiksel temel işlemler olan üs ve kök alma işlemlerini hangi ifadeler ile ya da fonksiyon ile hesaplayacağımızı öğrendik.

3^5
## [1] 243
sqrt(3)
## [1] 1.732051

Sonrasında isim, gün, yıl gibi başka nesneleri tanımladık.

ad <- "Ayse"
yas <- 26 
gun <-Sys.Date()
yeniyil <- as.Date("2024-01-01")

yas<- yas +1
yas_v1<- yas + 1

Random bir veri seti olduşturmak için rnorm fonksiyonunu kullandık. Hepimiz aynı veri setinbe sahip olmak için set.seed fonksyiyonunu kullandık. Bu veri setinin ortalamasını ve standart sapmasını hesapladık.

?rnorm
## starting httpd help server ... done
set.seed(41)
(veri <- rnorm(n = 10, mean = 15, sd = 3))
##  [1] 12.61689 15.59177 18.00511 18.86648 17.71726 16.48100 16.79786 10.26118
##  [9] 18.00186 21.56402
mean(veri)
## [1] 16.59034
sd(veri)
## [1] 3.198627

Ödev 1

İlk ödevimde learnR in R paketi üzerinden kendi kendime öğrenmeyi deneyimledim. Öncelikle swirl paketini yükledim. Bu paketi şu anda çalıştırmak istemediğim için eval=FALSE kodunu kullanarak kodu çalıştırmadan bloğumda görünmesini sağladım. Eğer kodu çalıştırmak istesem ama çıktısını görmek istemezsem include=FALSE kodunu kullanmam gerekecekti. Kodu çalıştırıp sadece çıktı almak isteseydim yani kodun kendisini göztermek istemezsem echo=FALSE kodunu kullanmam gerekecekti.

library(swirl)

swirl()

Bu pakette paket size belirli görevler vererek ilerleminizi sağlıyor. Çok temelden yaklaşıyor. İlk olarak vektör oluşturdum. Sonrasında vektör üzerinden başka bir vektör oluşturdum. Vektör oluşturömak için c yani combine kodunu kullandım.

z <- c(1.1, 9, 3.14)

z
## [1] 1.10 9.00 3.14
c(z, 555,z)
## [1]   1.10   9.00   3.14 555.00   1.10   9.00   3.14

Temel aritmetik işlemleri (çarpma, toplama gibi)vektör üzerinde uyguladım.

z*2+100
## [1] 102.20 118.00 106.28
my_sqrt <- sqrt(z-1)

my_sqrt
## [1] 0.3162278 2.8284271 1.4628739
mydiv <- z / my_sqrt

mydiv
## [1] 3.478505 3.181981 2.146460

Farklı boyutlardaki vektörlerde toplama yaptığımız zaman büyük olan vektör küçük olan vektörün iki katı kadar uzunlukta olmalıdır. Çünkü büyük vektör küçük vektör ile kaç kat ise o kadar defa toplanır. Aşağıdaki örnekle açıklasam daha net olur gibi.

c(1,2,3,4)+c(0,10)
## [1]  1 12  3 14

Yukarıda görüldüğü üzere 1 ve 0, 2 ve 10 toplandıktan sonra 3 tekrar 0 ile, 4 ise tekrar 10 ile toplanıyor. Yani aslında tekrarlı toplama yapıyor. Tam katı olmadı zaman ise toplama işlemini gerçekleştiremiyor.

c(1,2,3,4)+c(0,10,3)
## Warning in c(1, 2, 3, 4) + c(0, 10, 3): longer object length is not a multiple
## of shorter object length
## [1]  1 12  6  4

Yukarıda görüldüğü gibi tam katı olmadığı hakkında uyarı veriyor.

Bundan sonraki kısımlarda paket hata verdiği için ilerleyemedim.

Ödev 2

Bu ödevimde kitapta yer alan soruları kendim deneyerek yaptım.

#toplama
8+12
## [1] 20
#us alma
8^2
## [1] 64
#bolme
(5+5)/2
## [1] 5
#karekok alma
sqrt(36)
## [1] 6
r1 <- 5
r2 <- 10
r3 <- 15

A1 <- 3.14*r1^2
A2 <- 3.14*r2^2
A3 <- 3.14*r3^2

A1 > A2
## [1] FALSE
ls()
##  [1] "A1"      "A2"      "A3"      "ad"      "boy"     "en"      "gun"    
##  [8] "my_sqrt" "mydiv"   "r1"      "r2"      "r3"      "veri"    "x"      
## [15] "y"       "yas"     "yas_v1"  "yeniyil" "z"
rm()