Учитывая следующие два цикла, я хочу сохранить G.temp и S.temp в файл и построить их на более позднем этапе.
for(p in seq_along(time(S))){
G.temp<-window(G,start = p,end=p+1)
S.temp <- window(S,start=p,end=p)
print(max(as.numeric(G.temp)-as.numeric(S.temp)))
}