一元线性回归-R语言

# 安装包

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")

通过运行代码得出图形散点图和预测区间、置信区间。

相关推荐
莫叫石榴姐1 小时前
数据科学与SQL:组距分组分析 | 区间分布问题
大数据·人工智能·sql·深度学习·算法·机器学习·数据挖掘
ChaseDreamRunner2 小时前
迁移学习理论与应用
人工智能·机器学习·迁移学习
谢眠3 小时前
深度学习day3-自动微分
python·深度学习·机器学习
搏博3 小时前
神经网络问题之一:梯度消失(Vanishing Gradient)
人工智能·机器学习
rellvera3 小时前
【强化学习的数学原理】第02课-贝尔曼公式-笔记
笔记·机器学习
我感觉。5 小时前
【机器学习chp4】特征工程
人工智能·机器学习·主成分分析·特征工程
DieYoung_Alive5 小时前
一篇文章了解机器学习(下)
人工智能·机器学习
幻风_huanfeng5 小时前
人工智能之数学基础:线性代数在人工智能中的地位
人工智能·深度学习·神经网络·线性代数·机器学习·自然语言处理
请你喝好果汁6415 小时前
单细胞|M3-4. 细胞聚类与轨迹推断
机器学习·数据挖掘·聚类
Chef_Chen7 小时前
从0开始学习机器学习--Day33--机器学习阶段总结
人工智能·学习·机器学习