library(help=TSA) ?TSA data(color) color ?ts test=ts(data=c(3,-1,5),start=1,frequency=1) test time(test) plot(test) data(tempdub) # load the dataset tempdub plot(tempdub) data(lynx) ?lynx hist(lynx) # histogram hist(log(lynx)) plot(log(lynx))