Displaying 1 result from an estimated 1 matches for "prsup".
Did you mean:
preup
2009 Feb 13
0
lists on a script
...next} else {
año<-floor(cont/12);
mes<-(cont-12*año);
a<-(1999+año);
foo[[j]]<-ts(x[(cont):nrow(x),j],frequency=12,start=c(a,mes))}};
That's the first part, then
ind4<-integer();
for (m in setdiff(diff,ind3)){
nn<-length(foo[[m]]);
prinf<-median(foo[[m]][1:12]);
prsup<-median(foo[[m]][(nn-12):nn]);
if (xor((prsup/prinf)>s,(prinf/prsup)>s)) {ind4<-c(ind4,m)}};
crit3<<-ind4;
So far so good (aparently). I mean, the "crit3" set it's ok. But, the next
paragraph:
ind5<-integer();
for (k in ind4){
print(k); #to know...