使用两个(甚至更多)for循环时存储值

f45qwnt8 于 2023-03-20 发布在其他

关注(0)|答案(2)|浏览(114)

我正在写一个骰子模拟器，它使用两个for（）函数循环。
但是我不能存储输出。下面是我的代码。

dice <- matrix(c(1,2,3,4,5,6),1,6)

sim <- matrix() ; sim_mean <- c() ; sim2 <- c()
for ( N in c(20,50,100) ) {
  
  for ( i in 1:10 ) {
    
  sim <- sample(dice , size = N , replace = TRUE)
  
  print(sim)
  
}
  }

我想做一个矩阵或列表来存储它们，但失败了很多次。
如何存储输出sim？

来源：https://stackoverflow.com/questions/75788298/store-value-when-use-twoeven-more-for-loop

2条答案

按热度按时间

wswtfjt71#

你可以使用Base R lapply函数两次，将结果自动存储到 Dataframe 中。见下文。

resample <- function(N, n_resample = 10){
  lapply(1:n_resample, \(x)sample(1:6, size = N, replace = TRUE))
}

repeated_resample <- function(N, n_resample){
  lapply(N, function(x){resample_results(N = x, n_resample = n_resample)})
  }
results <- repeated_resample(N = c(20,50,100), n_resample = 10)

赞(0）回复(0）举报 2023-03-20

bxgwgixi2#

您可以使用lapply和sapply代替for将结果存储为列表或矩阵。

sim <- lapply(c(20,50,100), \(N) {
  sapply(1:10, \(i) {
    sample(dice , size = N , replace = TRUE)
  })
})

str(sim)
#List of 3
# $ : num [1:20, 1:10] 2 3 2 2 4 6 4 3 4 5 ...
# $ : num [1:50, 1:10] 3 2 2 3 6 1 4 3 6 3 ...
# $ : num [1:100, 1:10] 4 1 5 3 6 4 2 5 3 5 ...

赞(0）回复(0）举报 2023-03-20

我来回答

使用两个(甚至更多)for循环时存储值

2条答案

相关问题

热门标签

最新问答