苹果/安卓/wp
博士生
0%
还不是VIP/贵宾
签到天数: 559 天
连续签到: 1 天
[LV.9]以坛为家II
应届毕业生专属福利!
送您一个全额奖学金名额~ !
经管之家送您两个论坛币!
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
举报
副教授
bs {splines}
#require(stats); require(graphics)
bs(women$height, df = 5)
summary(fm1 <- lm(weight ~ bs(height, df = 5), data = women))
## example of safe prediction
plot(women, xlab = "Height (in)", ylab = "Weight (lb)")
ht <- seq(57, 73, length.out = 200)
lines(ht, predict(fm1, data.frame(height = ht)))
发表回复 回帖后跳转到最后一页
京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明 免责及隐私声明