# # 安裝包
# 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")

通過運行代碼得出圖形散點圖和預測區間、置信區間。

?

?

?

?

?

?

?

?

?

?