I want the code and the resulte please Solutionfirst click i

I want the code and the resulte please ..

Solution

first click in

file.....new script ....paste the code in the new script .........highlight all the code in the new script ....press ctrl with letter R together

mydata = data.frame(
Ratio= c(1,0.9,0.8,0.7,0.6,0.5,0.4,0.3),
Viscosity = c(0.45,0.20,0.34,0.58,0.70,0.57,0.55,0.44))
model = lm(Viscosity ~ Ratio, data = mydata)
summary(model)
anova(model)
confint(model, level=0.9)
intermediate variables
# xbar      mean value of x
x=c(1,0.9,0.8,0.7,0.6,0.5,0.4,0.3)
xbar=mean(x)
xbar
y=c(0.45,0.20,0.34,0.58,0.70,0.57,0.55,0.44)
# ybar      mean value of y
ybar=mean(y)
ybar
# sxx       sum of (x-xbar) squared
sxx =sum((x-xbar)^2)
sxx
# syy       sum of (y-ybar) squared
syy =sum((y-ybar)^2)
syy
# sxy       sum of (x-xbar)*(y-ybar)
sxy =sum((x-xbar)*(y-ybar))
sxy