从引导 R 返回两个值

Question

我正在尝试引导一个函数，我希望 boot 函数返回超过 1 个值：

library(boot)
r=50;c=50
m1 <- (sample(1000,r*c,T))
nboot = 100
boot_fun <- function(m,b){
  m <- m[b]
  mn <- mean(m)
  vr <- var(m)
  tmp <- list(mn,vr)
  return(tmp)
}
bmat <- boot(data=m1,statistic=boot_fun,R=nboot)

在这里，我想返回 vr 和 mn 值，但这当然不起作用，因为我收到此错误：

启动错误(data = m1, statistic = boot_fun, R = nboot) 矩阵上的下标数不正确

我可以引导两次，但这需要更多时间。

有没有办法从boot 函数返回多个对象？

Answer 1

好吧，我有点傻。我的问题的答案很简单：

我只是将附加信息附加到引导函数中返回的向量，然后我只是将bmat$t 矩阵作为子集。

所以答案可能是这样的：

library(boot)
r=50;c=50
m1 <- (sample(1000,r*c,T))
nboot = 100
boot_fun <- function(m,b){
  m <- m[b]
  mn <- mean(m)
  vr <- var(m)
  return(c(mn,vr))
}
bmat <- boot(data=m1,statistic=boot_fun,R=nboot)
mn <- bmat$t[,1]
vr <- bmat$t[,2]

我希望这可以对某人有所帮助。