# NOT RUN {
# }
# NOT RUN {
z <- ts(matrix(rnorm(1000),100,10), start=c(1982,1), frequency=12)
seriesNames(z) <- paste("Series", 1:10)
if (requireNamespace("googleVis"))
tfVisPlot(z, options=list(title="Random Number Series"))
# }
Run the code above in your browser using DataLab