Displaying 1 result from an estimated 1 matches for "lagplot2".
Did you mean:
lagplot1
2008 Aug 26
1
no output when run densityplot...
...title <- paste('Lag plot (k=1), lowess, and regression line for
',server,'[',status,']',sep=' ')
plot(z,main=title)
lines(lowess(z))
abline(lm(z))
dev.off()
if (par2 > 1) {
filename <- paste(server,'_',status,'-','lagplot2','.png',sep='')
bitmap(file=filename)
dum <- cbind(lag(x,k=par2),x)
dum
dum1 <- dum[(par2+1):length(x),]
dum1
z <- as.data.frame(dum1)
z
mylagtitle <- 'Lag plot (k='
mylagtitle <- paste(mylagtitle,par2,...