一元线性回归-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 小时前
机器学习入门:决策树的欠拟合与过拟合
人工智能·机器学习
go54631584651 小时前
修改Spatial-MLLM项目,使其专注于无人机航拍视频的空间理解
人工智能·算法·机器学习·架构·音视频·无人机
还有糕手2 小时前
西南交通大学【机器学习实验2】
人工智能·机器学习
小白狮ww2 小时前
VASP 教程:VASP 机器学习力场微调
人工智能·深度学习·机器学习
阿水实证通2 小时前
Stata如何做机器学习?——SHAP解释框架下的足球运动员价值驱动因素识别:基于H2O集成学习模型
人工智能·机器学习·集成学习
呆头鹅AI工作室3 小时前
[2025CVPR]SEEN-DA:基于语义熵引导的领域感知注意力机制
人工智能·深度学习·机器学习
大千AI助手4 小时前
蒙特卡洛方法:随机抽样的艺术与科学
人工智能·机器学习·贝叶斯·概率·蒙特卡洛·随机
山顶望月川4 小时前
并行科技MaaS平台支持文心4.5系列开源模型调用
人工智能·机器学习·编辑器
FF-Studio4 小时前
【硬核数学】3. AI如何应对不确定性?概率论为模型注入“灵魂”《从零构建机器学习、深度学习到LLM的数学认知》
大数据·人工智能·深度学习·机器学习·数学建模·自然语言处理·概率论