我正在尝试运行模拟。我需要保存某些文件,有时还需要从模拟内部读取。我有三个样本大小条件,我根据样本大小给出名称。
例如,文件名为“ binAll.100.dne ”,这是样本大小为 100 的情况。
您对如何根据不同的仿真条件保存或读取此类文件有什么想法吗?这是我的shellcode。我试图将一个对象“ binAll ”保存为“ binAll.100.dne ”,N是我的样本大小,这里是 100。
start.time = proc.time()
Ns = c(100, 400, 900) # sample sizes
Iterations = 300 #number of iterations/datasets
for (N in Ns){
#store the results in an empty vector
all.results <- c()
for (iter in 1:Iterations){
# ALL FUNCTIONS GO HERE
WriteNetworks(binAll,"binAll.100.dne") # how to save this seperately for each sample size
} #close dataset loop
# save the results outside of the dataset loop
write.table(all.results, file="simulation_results.csv", sep=",", append=T,col.names=F,row.names=F,quote=F)
} #close the sample size loop
end.time = proc.time()
total.time = end.time - start.time
感谢您抽出宝贵时间。干杯。
据我了解,您正试图根据样本大小来确定文件名。您可以通过使用 paste() 方法连接文件名和样本大小来做到这一点。请参阅下面的示例。如果这不是您所追求的,请更新您的问题。
N <- 100 # Set sample size
# Create filename
fileName <- paste("binAll", N, "dne", sep=".")
print(fileName)
# Example write function
write.table(yourData, file=fileName)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句