单独保存模拟数据集（速度+内存限制）

作者: star*위위
发布时间: 2024-12-31 04:36:56 (1月前)
转自：

2 条回复

0#
回复此人
日耀九洲 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 正如F.Priv茅提到的，如果你需要保存这些文件，最好使用saveRDS。在这种情况下，您没有进行冗余保存和加载。 </p> <pre> <code> jj <- 1:2000 for(i in 1:10){ for(j in jj){ dataA <- cbind(rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j)) dataB <- cbind(rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j),rnorm(j)) data_list[[j]] <- dataA-dataB } saveRDS(data_list, paste0("Data", i, '.rds')) } </code> </pre> <P> 在这个特定的数据模拟中，我会尽量避免循环。一次生成所有数据（或至少部分生成），然后使用索引列存储到data.frame。就像是： </p> <pre> <code> dataA <- replicate(8, rnorm(sum(jj))) dataB <- replicate(8, rnorm(sum(jj))) data_list <- dataA - dataB data <- as.data.frame(data_list) data[, "ind"] <- rep(jj, times = jj) </code> </pre> <P> 但是，我认为这不是您真正的数据模拟，了解您为什么要模拟1k 2k数据集列表至关重要？他们都需要在分开的名单中吗？所有都是平等模拟？等等... </p> </DIV>

编辑

登录后才能参与评论