## Plot in a single graph the path of the four quarters and
## store its data in the object \code{MR}.
data(JohnsonJohnson)
MR <- quarterg (vari=JohnsonJohnson, t0=c(1960,1), plot=TRUE)
Run the code above in your browser using DataLab