2018-05-11-125933.sagews

%r
x<-c(9.6,3.7,5.2,10.0,4.7,4.8,6.0,5.4,4.8,4.1,6.0,9.5,6.8,6.1)
y<-c(47.9,54.6,93.7,84.7,100.0,42.5,96.4,77.1,58.3,95.4,78.0,93.3,93.3,93.7,89.8)
cor(independent varibale, dependent veriable)

Error in parse(text = x, srcfile = src): <text>:3:17: unexpected symbol 2: y<-c(47.9,54.6,93.7,84.7,100.0,42.5,96.4,77.1,58.3,95.4,78.0,93.3,93.3,93.7,89.8) 3: cor(independent varibale ^ Traceback:

%r
x<-c(9.6,3.7,5.2,10.0,4.7,4.8,6.0,5.4,4.8,4.1,6.0,9.5,6.8,6.1)
y<-c(47.9,54.6,93.7,84.7,100.0,42.5,96.4,77.1,58.3,95.4,78.0,93.3,93.3,93.7,89.8)
sprintf("coeff. of determination r^2=%2.4f",cor(x,y)^2)

Error in cor(x, y): incompatible dimensions Traceback: 1. sprintf("coeff. of determination r^2=%2.4f", cor(x, y)^2) 2. cor(x, y)

%r
x<-c(25.8057,37.4511,51.915,43.6952,47.8506,43.7178,58.0767,41.1648,38.0793,37.7251,39.6553,42.0265,48.6159,43.8555,49.1361,61.9281,41.9543,44.9346,46.0521,48.3652,43.6252,50.9866,59.1724,39.6282,33.6074,21.6643)
mean(x)
t.test(x,conf.level=0.95)

43.8726538461538

One Sample t-test data: x t = 24.661, df = 25, p-value < 2.2e-16 alternative hypothesis: true mean is not equal to 0 95 percent confidence interval: 40.20874 47.53657 sample estimates: mean of x 43.87265

%r
X<- c(321,1432)
t.test(x,conf.level=0.90)

One Sample t-test data: x t = 2.7023, df = 1, p-value = 0.2256 alternative hypothesis: true mean is not equal to 0 90 percent confidence interval: -3396.583 8479.583 sample estimates: mean of x 2541.5

%r
x<- c(1601,3482)
t.test(x,conf.level=0.05)

One Sample t-test data: x t = 2.7023, df = 1, p-value = 0.2256 alternative hypothesis: true mean is not equal to 0 5 percent confidence interval: 2467.481 2615.519 sample estimates: mean of x 2541.5

%r
x_bar<- c( 10,14,12,9,13,13,13,11,12,15,9,10,11,3,6,12,15,12,12)