R 分析回归（一元回归）

x <- c(18,23,25,35,65,54,34,56,72,19) # build X(predictor)
y <- c(202,168,180,156,169,174,172,153,199,193) # build Y(dependent variable)
mode(x) # view the type of x
plot(x,y) # plot the graph
model <- lm(y ~ x) # build the linear model
abline(model) # add the line in graph

数据是自己编的，所以图有点假。

summary(model)

 上图为各种参数，还有各种检验。

如果想要输出建好的模型的方程的话，可以以下面的方式，当然还可以用predict()函数

pridict <- model$coefficients[1] + model$coefficients[1]*100 # we can pridict 100 in model through this way
print(pridict) # print result