请教大神，下面的s-plus的script如何修改后在R中运行

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求教大神。一个script。我想让他在R中运行，请问应当如何修改？谢谢！

library(Design)
reri <- function(datsam)
{
fitlr <- glm(outcome ~ determinant A * determinant B, family=binomial, data=datsam)
reri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1
}
summary.bootstrap(bootstrap(dataset, reri(dataset), B=10000), probs=c(0.025,0.5, 0.975))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：script scrip scri PLUS Plu 如何

代码本身写的就有问题啊，第二行应该是

1. reri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4])−exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1

复制代码

，还有就是dataset应该是一个实际存在的数据集，比如iris数据集，这样直接就可以运行了

应该是reri <- exp(fitlr$coef[2]+fitlr$coef[2]+fitlrcoef[3]+fitlr$coef[4])−exp(fitlr$coef[4])−exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1

可能是浏览器的问题，美元符号显示不出来，fitlr和coef之间要有美元符号

victorchan0633 发表于 2015-12-30 20:59
可能是浏览器的问题，美元符号显示不出来，fitlr和coef之间要有美元符号

谢谢您。刚看见信息

请教楼主，知道怎么改了吗？求解
还有可以讨论一下这个方法吗？