对于R中的Loop,all in 1命令

斯特罗比拉

我创建了这个随机时间序列:

MM=1584
Z0<-rnorm(MM,8,1.0)#;ts.plot(Z0) 

s_1=1.50; p_1=121; p_2=240
s_2=1.25; p_3=361; p_4=480
s_3=1.10; p_5=601; p_6=720
s_4=1.50; p_7=960; p_8=1020
s_5=1.25; p_9=1140; p_10=1320
s_6=1.50; p_11=1369; p_12=1440

a=(Z0[1:p_1-1])
b=(s_1+Z0[p_1:p_2])
c=(Z0[(p_2+1):(p_3-1)])
d=(s_2+Z0[p_3:p_4])
e=(Z0[(p_4+1):(p_5-1)])
f=(s_2+Z0[p_5:p_6])
g=(Z0[(p_6+1):(p_7-1)])
h=(s_3+Z0[p_7:p_8])
i=(Z0[(p_8+1):(p_9-1)])
l=(s_4+Z0[p_9:p_10])
m=(Z0[(p_10+1):(p_11-1)])
n=(s_5+Z0[p_11:p_12])
o=Z0[(p_12+1):MM]


Z=c(a,b,c,d,e,f,g,h,i,l,m,n,o);ts.plot(Z)
abline(v=p_1,col="red");abline(v=p_2,col="red");abline(v=p_3,col="red")
abline(v=p_4,col="red");abline(v=p_5,col="red");abline(v=p_6,col="red")
abline(v=p_7,col="red");abline(v=p_8,col="red");abline(v=p_9,col="red")
abline(v=p_10,col="red");abline(v=p_11,col="red");abline(v=p_12,col="red")

Zm=as.data.frame(Z)
write.csv2(Zm, file="C:/Users/Luca/Dekstop/Zm/Zm1.csv")

我想重复这些命令来创建100系列,并使用write.cs2(... Zm“ ...”。csv)保存它们。

我不想更改文件名并手动重复所有命令。
我搜索了其他问题中有用的东西,但没有找到。

对于每个循环,循环仅需要更改数据帧(Zm)的名称和文件名。

我想重复创建Z0(Z01,Z02,Z03 ... Z0100)的100倍,然后再创建Z(Z1,Z2 ... Z100),然后再创建Zm(Zm1,Zm2,Zm3 ... Zm100)和使用循环在1个命令中将它们保存在具有新文件名(文件夹/ Zm1,Zm2,Zm3等...)的文件夹中。

tho_mi

我不确定为什么要更改数据帧的名称,但是动态更改文件的名称很简单。

for (i in 1:100) { ... write.csv2(Zm, file=paste("C:/Users/Luca/Dekstop/Zm/Zm", i, ".csv", sep = "")) }

如果要保留创建的数据框,为什么不只使用列表呢?

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章