Vectorized_operations.R

# -- Vectorized operations -- 

 
city <- c("Beijing", "Lagos", "Paris", "Rio de Janeiro", "San Juan", "Toronto")

temp <- c(35, 88, 42, 84, 81, 30)   #[F]

# temp içerisindeki F değerleri C ye çevir ve temp 'e yükle
temp <- (5/9) * (temp-32)           #[C]



# sıcaklık ve isimlerin bulunduğu dataframe oluştur.
city_temps <- data.frame(name = city , temperature = temp)



# --Example--

# Yan tarafta bulunan denklemin değeri kaçtır: 1 + 1/2^2 + 1/3^2 + ... + 1/100^2? 

# Hesaplamak için önce 1-100 e kadar olan sayıların bulunduğu vektör oluşturulur
x <- 1:100

#  1 + 1/2^2 + 1/3^2 + ... + 1/100^2 Toplamı hesaplanır. 
sum(1/x^2)

# --Example--

# Her eyalet için 100.000 cinayet oranını hesaplayın ve bu değerin ortalamasını bulun.

library(dslabs)
data(murders)


murder_rate <- murders$total / murders$population * 100000 

mean(murder_rate)