## Create an Artificial timeSeries Object -
setRmetricsOptions(myFinCenter = "GMT")
charvec <- timeCalendar()
data <- matrix(rnorm(12))
TS <- timeSeries(data, charvec, units = "RAND")
TS
## Test for timeSeries -
is.timeSeries(TS)
Run the code above in your browser using DataLab