tags: `rBasicLearning`

単回帰分析テンプレート

単回帰分析のテンプレートを, 以下に作りました！
宜しければ, 使ってください！

テンプレート

SLR <- function(X, Y){ # SimpleLinearRegression（単回帰分析）
  plot(X, Y) # 散布図を描く
  result <- lm(Y ~ X) # 回帰分析を行う
  abline(result) # 線を引く
  
  legend("topleft", # 相関係数を左上に貼り付ける
         legend= c(paste0("r : ", round(cor(X, Y), digits = 2)))) #小数点2桁で出力
}

具体例

X <- c(1, 3, 5, 7) # 自分の使いたいデータを入れてください
Y <- c(2, 5, 9, 11) # 自分の使いたいデータを入れてください

SLR(X, Y)

![](
https://i.imgur.com/2KlZ9ZN.png)