Displaying 1 result from an estimated 1 matches for "2r_eq_p_r1".
Did you mean:
2r_eq_p_r2
2011 Oct 20
1
How to remove all objects except the sequence
...I want to faster the
loop by removing the objects and free memory after every operation.
Below is my code:
setwd("C:\\Dokumente und Einstellung\\.....")
library("tsDyn")
z<-(1:1000)### sequence parameter
sink("prueba.txt")
for (i in seq(z))
{
P1<-read.csv("2R_EQ_P_R1.csv")
P2<-read.csv("2R_EQ_P_R2.csv")
c<-data.frame(P1[i],P2[i])
c.t<-ts(c)*-1
try(print(z[i]))
try(SeoTest<-TVECM.SeoTest(c.t, lag=1, beta=1, trim=0.1, nboot=100))
try(summary(SeoTest))
rm(list=ls(all=TRUE)) ### Here I want to erase all but "z"
}
best,
Sergio...