## An artificial 'timeSeries' Object -
tS <- dummyMonthlySeries()
tS
## Print Financial Center -
finCenter(tS)
getFinCenter(tS)
## Assign New Financial Center -
finCenter(tS) <- "Zurich"
tS
setFinCenter(tS) <- "New_York"
tS
Run the code above in your browser using DataLab