Displaying 1 result from an estimated 1 matches for "msup".
Did you mean:
msun
2009 Feb 13
0
lists on a script
...k. But, the next
paragraph:
ind5<-integer();
for (k in ind4){
print(k); #to know when the error happens
dife<-numeric();
l<-length(foo[[k]]);
print(l);
print(foo[[K]]) #to know why the error happens
for (i in 9:(l-8)){
minf<-median(foo[[k]][(i-8):(i-1)]);
msup<-median(foo[[k]][(i+1):(i+8)]);
dife[i]<-abs(ceiling((msup-minf)))};
st<-which(dife==max(abs(dife),na.rm=T));
if (length(st)>1){st<-st[length(st)]};
if ((l-st)<24){ind5<-c(ind5,m);foo[[k]]<-NULL} else{
agno<-(start(foo[[k]])[1]+floor(st/12));
mes<-(start(foo[...