Typo correction: x[,2]<- c(NA,-as.numeric(x[-1,1]<x[-nrow(x),1]))
______________________________________________ [email protected] mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
