一组数据(名称：re）：
34    37    68    47    77    73
79    73    91    76    70    99
85    25    104    84    42    56
106    23    80    99    75    107
101    96    81    90    97    89
98    91    51    37    73    101
81    64    82    100    25    86
97    19    83    97    50    95
...
...
每行分别做bootstrap抽出6个值，进行10000次，得到每行均值的检验p值。
for ( i in 1:nrow(re))
{
  x<-as.numeric(re[i,])
  for(j in 1:10000)
    {
    data=sample(x,6,replace=TRUE,prob=NULL)
    meansamp=mean(data)
    {
    meanbootsamp[j]=meansamp
    }
    }
   pboot <- length(which(meanbootsamp>=mean(x)))/1000
}


运行后，结果有问题，请帮忙看看。
多谢！