dkalkınma

alamine

adam

hamit

king

of

north

alamine adam hamit abdulkadir ataib arahabyadm bashar the king of north ana the great of al taime

x = c(2 ,3 ,1 ,0 ,5 ,0)
y = c(4 ,2 ,5 ,-7, 9, 3)

n = length(x)
x

## [1] 2 3 1 0 5 0

total_x = sum(x)

ortalama_x = total_x/n

ortalama_x

## [1] 1.833333

total_x <- mean(x)

ortalama_y <- mean(y)

total_y <- sum(y)

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

\[ \sigma^2 =\frac {\sum_{i=1}^2 ( 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  
##      -0.708        1.841

cov(x,y)/var(x)

## [1] 1.840708

ortalama_y-1.841*(ortalama_x)

## [1] -0.7085

varıyans = x