问题描述
在反复注释掉函数后,我遇到了一个问题。它以前曾起作用,但现在我找不到引起问题的原因。
要复制的数据:
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”。如果我在函数外部创建它,那没问题,但是我需要在内部将其包含在每个引导程序中。 有人知道出什么事了吗?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)