刀切法（Jackknife）、弃D刀切法R的命令？介绍他们其书籍或文献？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

刀切法（Jackknife）、弃D刀切法R的命令？介绍他们其书籍或文献？谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Jackknife knife Jack 书籍

没有人回答呀！

### Example1(Jackknife estimate of bias) data(patch, package = "bootstrap")
n <- nrow(patch)
y <- patch$y
z <- patch$z
theta.hat <- mean(y) / mean(z)
print (theta.hat)
#compute the jackknife replicates, leave-one-out estimates
theta.jack <- numeric(n)
for (i in 1:n)
      theta.jack <- mean(y[-i]) / mean(z[-i])
bias <- (n - 1) * (mean(theta.jack) - theta.hat)
print(bias) #jackknife estimate of bias
     
### Example2 (Jackknife estimate of standard error)
se <- sqrt((n-1) * mean((theta.jack - mean(theta.jack))^2))
print(se)