data(Nile) plot(Nile) data(airquality) head(airquality) par(mfrow=c(2,2), mar=c(2,2,.5,.5)) for(i in 1:4) plot(airquality[,i], type="l") plot(acf(airquality[,2], na.action=na.pass)) plot(acf(airquality[,3])) data(sunspots) help(sunspots) plot(sunspots) plot(log(sunspots)) data(Seatbelts) plot(Seatbelts) data(co2) plot(co2) help(co2) require(AER) data(ArgentinaCPI) plot(ArgentinaCPI) plot(log(ArgentinaCPI)) data(GermanUnemployment) plot(GermanUnemployment) data(FrozenJuice) plot(FrozenJuice) help(FrozenJuice) data(EuroEnergy) require(car) data(Hartnagel) help(Hartnagel) plot(Hartnagel) require(Ecdat) data(Computers) plot(Computers) help(Computers)