【发布时间】:2014-11-28 07:44:16
【问题描述】:
我已经使用以下脚本绘制了下面的散点图,但仍然需要获取回归系数。
非常感谢任何帮助。
lm.irt12 <- lm(prtemp ~ irt12,data=apirt)
summary(lm.irt12)
plot(apirt$irt12[apirt$surv==1],
apirt$prtemp[apirt$surv==1],
xlab="ave. base of ears (°C)",
ylab="rectal (°C)",
xlim=c(26,42),
ylim=c(30,42),
col='blue')
points(apirt$irt12[apirt$surv==0], apirt$prtemp[apirt$surv==0],col='red')
abline(lm.irt12)
abline(h=36,v=0, col="gray10",lty=20)
#col = "gray60" OR col = "lightgray", lty=3; #(lty=3: broken line, 1:continuous)
text(26.7,36.7,parse(text='36*degree'),col='gray10')
abline(h=34,v=0, col="gray10",lty=20)
#col = "gray60" OR col = "lightgray", lty=3; #(lty=3: broken line, 1:continuous)
text(26.7,34.7,parse(text='34.0*degree'),col='gray10')
【问题讨论】:
-
您的第二行代码应该返回系数。另外,
coef(lm.irt12). -
@jbaums:非常感谢您的帮助!你是对的,summary(lm.irt12) 给了我相同的系数。
标签: r regression coefficients