找不到函数中的R对象

如何解决找不到函数中的R对象

在反复注释掉函数后，我遇到了一个问题。它以前曾起作用，但现在我找不到引起问题的原因。

要复制的数据：

xmat <- matrix(rexp(200,rate=.1),ncol=20)
ymat <- matrix(rexp(10,ncol=1)

使用的软件包：

if ( !("ensr" %in% rownames(installed.packages())) || (packageVersion("ensr") < "0.1.0.9001" ) ) {
  remotes::install_github('dewittpe/ensr')
}

代码：

set.seed(2020)

nboot = 1000

bootstraps <- replicate(nboot,{ws <- sample(1:nrow(xmat),replace = TRUE); 
  ensr(xmat[ws,],ymat[ws,standardized = FALSE,family="gaussian",nlambda=100,nfolds=10,alpha=c(0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0)
)},simplify = FALSE)

我得到一个错误，即找不到对象“ ws”。如果我在函数外部创建它，那没问题，但是我需要在内部将其包含在每个引导程序中。有人知道出什么事了吗？