有没有办法在 R 中将函数“cat”与函数“replicate”结合起来?
我想查看 R 在特定时刻已经完成的“循环”数量。但是,我更喜欢使用“复制”,而不是使用“for”循环。请参见下面的简单示例:
Data <- rnorm(20,20,3)
# with for loop
N <- 1000
outcome <- NULL
for(i in 1:N){
Data.boot <- sample(Data, replace=TRUE)
outcome[i] <- mean(Data.boot)
cat("\r", i, "of", N)
}
#the same but with replicate
f <- function() {
Data.boot <- sample(Data, replace=TRUE)
outcome <- mean(Data.boot)
return(outcome)
}
replicate(N, f())
因此,任何如何用“replicate”实现函数“cat”的想法(以及其他方法来查看感兴趣的函数已经用“replicate”执行了多少次)都将不胜感激。谢谢!