# A timeSeries object
data <- matrix(rnorm(24), ncol = 2)
charvec <- as.character(timeCalendar())
ts <- timeSeries(data, charvec, FinCenter = "NewYork")
ts
# print financial center
finCenter(ts)
# assign new financial center
finCenter(ts) <- "Zurich"
ts
Run the code above in your browser using DataLab