# 安装包
install.packages('ggplot2')
library(ggplot2)
Sys.setlocale(category = 'LC_ALL', locale = 'English_United States.1252')
Sys.setlocale("LC_ALL","Chinese")
x <- c(18, 20, 22, 24, 26, 28, 30)
y <- c(26.86, 28.35, 28.87,28.75, 29.75, 30, 30.36)
model <- lm(y ~ x)
summary(model)
画出散点图
plot(x, y, pch = 19, col = "blue", cex = 2, xlab = "x", ylab = "y")# 绘图代码
画出拟合直线
plot(model)
# 画出残差图
plot(model, which = 1)
# 画出标准化残差图
plot(model, which = 2)
# 画出QQ图
plot(model, which = 3)
# 画出方差-拟合值图
plot(model, which = 4)
# 画出学生化残差图
plot(model, which = 5)
# 画出Cook距离图
plot(model, which = 6)
预测
predict(model, data.frame(x = 40))
置信区间
predict(model, data.frame(x = c(40)), interval = "confidence")
预测区间
predict(model, data.frame(x = c(40)), interval = "prediction")
install.packages('lifecycle')
options(repos="http://cran.rstudio.com/")
install.packages("lifecycle", dependencies=TRUE)
Install release version from CRAN
install.packages("lifecycle")
# Install development version from GitHub
pak::pak("r-lib/lifecycle")
通过运行代码得出图形散点图和预测区间、置信区间。
