ben verileri r olusturmak icin asagıdaki kodu kullandım.
x<-c(2,3,4,6,5,3)
y<-c(3,2,1,4,3,1)
veri<-data.frame(x,y)
verinin toplamı su sekilde bulunur
sum(x)
## [1] 23
sum(y)
## [1] 14
oralamanın fromülü asagıdadır
\[ \bar{x} = \frac{\sum_{i = 1}^n x_i}{n} \]
mean(x)
## [1] 3.833333
mean(y)
## [1] 2.333333
sfkeokfwkgwkgokg
foewkfoekw
var(x)
## [1] 2.166667
var(y)
## [1] 1.466667
cov(x,y)
## [1] 0.8666667
cor(x,y)
## [1] 0.4861724
model<-lm(y~x)
summary(model)
##
## Call:
## lm(formula = y ~ x)
##
## Residuals:
## 1 2 3 4 5 6
## 1.400e+00 9.992e-16 -1.400e+00 8.000e-01 2.000e-01 -1.000e+00
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.8000 1.4602 0.548 0.613
## x 0.4000 0.3595 1.113 0.328
##
## Residual standard error: 1.183 on 4 degrees of freedom
## Multiple R-squared: 0.2364, Adjusted R-squared: 0.04545
## F-statistic: 1.238 on 1 and 4 DF, p-value: 0.3282