obj alternative method for std.error y <-objst sd(y) detach(package:boot) Code 观测到的9值用t1*标出.2000次重复下的Bootstrap标准差估计为0.1326418. 和boot函数相似功能的函数是bootstrap包里的oootstrap函数.使用 此函数重复上述问题的程序如下 FCode library(bootstrap) #for boot function n<-15 theta <-function(i,x){cor(x[i,1],x[i,2]) results <bootstrap(1:n,2000,theta,lav) sd(results$thetastar)#0.1325971 detach(package:bootstrap) Code Previous Next First Last Back Forward 10obj # alternative method for std.error y <- obj$t sd(y) detach(package:boot) ↓Code *ˇθˆä^t1∗I—. 2000g­EeBootstrapIOOè 0.1326418. ⁄bootºÍÉqıUºÍ¥bootstrapùpbootstrapºÍ. ¶^ dºÍ­E˛„ØKßSXe ↑Code library(bootstrap) #for boot function n <- 15 theta <- function(i,x){ cor(x[i,1],x[i,2]) } results <- bootstrap(1:n,2000,theta,law) sd(results$thetastar) #0.1325971 detach(package:bootstrap) ↓Code Previous Next First Last Back Forward 10