## Create an artificial timeSeries Object -
tS <- dummySeries()
tS
## Get Optional Attributes -
getAttributes(tS)
tS@documentation
## Set a new Optional Attribute -
setAttributes(tS) <- list(what="A dummy Series")
tS
getAttributes(tS)
tS@documentationRun the code above in your browser using DataLab