为0.115. 例3使用boot函数进行Bootstrap估计标准差在R中，包boot里的boot函 数可以进行Bootstrap估计.boot函数中的参数statistic是一个函数，用来返 回感兴趣的统计量值.这个函数必须至少有两个参数，其中第一个是数据，第二 个表示Bootstrap抽样中的指标向量，频率或者权重等.因此我们首先写一个 函数计算().用i=(i1,·,i)表示指标向量，则计算相关系数的程序为 TCode tau<-function(x,i){ x1<-x[1,] cor(x1[,1],xi[,2]) Code 然后我们就可以使用boot函数进行Bootstrap估计： library(boot) #for boot function obj <boot(data law,statistic tau,R 2000) Previous Next First Last Back Forward 9è0.115. ~3 ¶^bootºÍ?1BootstrapOIO 3R•, ùbootpbootº Íå±?1BootstrapO. boot ºÍ•ÎÍstatistic¥ òáºÍ, ^5à £a,⁄O˛ä. ˘áºÍ7Lñk¸áÎÍ, Ÿ•1òá¥Í‚, 1 áL´Bootstrap ƒ•çIï˛, ™«½ˆ­. œd·Çƒkòá ºÍOéθˆ(b) . ^i = (i1, · · · , in) L´çIï˛, KOéÉ'XÍßSè ↑Code tau<-function(x,i){ xi<-x[i,] cor(xi[,1],xi[,2]) } ↓Code ,￾·Ç“屶^bootºÍ?1BootstrapO: ↑Code library(boot) #for boot function obj <- boot(data = law, statistic = tau, R = 2000) Previous Next First Last Back Forward 9