Rで単回帰分析

# 回帰分析
test.lm <- lm(y ~ x, data = data.frame(testdata))

# 結果の表示
# 回帰式：y = Ax + B　のＡとＢを表示したり、ＡとＢのＦ統計量のＰ値を表示したり
summary(test.lm)

# ＡとＢの取り出し
A = test.lm$coefficients[2]
B = test.lm$coefficients[1]

# Ｆ統計量のＰ値の取り出し
summary(test.lm)$coefficient[, "Pr(>|t|)"]

# ＡのＰ値
summary(test.lm)$coefficient[2, "Pr(>|t|)"]
# ＢのＰ値
summary(test.lm)$coefficient[1, "Pr(>|t|)"]

# 散布図上に回帰直線を描画
abline(test.lm)