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