## 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