请教一个关于bootstrap自助法的一个问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

rsq <- function(formula, data, indices) {
d<-data[indices,]
  fit <- lm(formula, data=d)
  return(summary(fit)$r.square)
}

library(boot)
set.seed(1234)
results <- boot(data=mtcars, statistic=rsq,
                R=1000, formula=mpg~wt+disp)

这段代码里的“ d<-data[indices,]”是什么意思？是必须的吗？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Bootstrap Bootstra boots boot Trap

d为data的indices行
indices为输入参数

这里data是一个矩阵，然后对矩阵的每一行进行回归分析，最后rsq函数给出的结果是线性模型r2。要是我理解没错的话，最后bootstrap会给你r2的置信区间。

xwan288 发表于 2018-5-13 14:58
d为data的indices行
indices为输入参数

谢谢，我是说没看到他给rsq函数的indices赋值啊？

哈哈哈，我也不明白，请问楼主搞懂了吗？