Birinci

Ikinci

Ucuncu

Dorduncu

Besinci

Bu ders için ödevlerinizi rmarkdown ile hazırlamanızı bekliyorum. Rmarkdown dosyasını açmak için sol üst köşede bulunan ok tuşuna basın ve üçüncü sırada bulunan R Markdown seçeneğini seçin.

X <- c(2, 0, 3,7,8,2)
Y <- c(-2, 3, 4, 7,2,6)
n <- length(X)
n
## [1] 6
toplam_X <- sum(X)
toplam_X
## [1] 22
ortalama_x <- toplam_X/n
ortalama_x
## [1] 3.666667
ortalam_XX <- mean(X)
ortalam_XX
## [1] 3.666667
ortalama_y <- mean(Y)
ortalama_y
## [1] 3.333333

\[ \sigma^2 = \frac{\sum_{i =1} ^ n (x_i - \bar x)^2}{n} \]

df <- data.frame(cbind(X,Y))
model <- lm(Y ~ X, data = df )
model
## 
## Call:
## lm(formula = Y ~ X, data = df)
## 
## Coefficients:
## (Intercept)            X  
##      2.4662       0.2365
cov(X,Y)/var(X)
## [1] 0.2364865
ortalama_y - 0.2364865 * ortalama_x
## [1] 2.466216