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)
