## data -
# Create an artificial timeSeries object:
setRmetricsOptions(myFinCenter = "GMT")
charvec = timeCalendar()
set.seed(4711)
data = matrix(exp(cumsum(rnorm(12, sd = 0.1))))
TS = timeSeries(data, charvec, units = "TS")
TS
## Ops | +/- * ^ ...
# Mathematical Operations:
TS^2
TS[2:4]
OR = returns(TS)
OR
OR > 0
Run the code above in your browser using DataLab