## Load Micsrosoft Data
setRmetricsOptions(myFinCenter = "GMT")
LPP <- MSFT[1:12, 1:4]
## Abbreviate Column Names
colnames(LPP) <- abbreviate(colnames(LPP), 6)
## Print Data Set
print(LPP)
## Alternative Use, Show Data Set
LPP # equivalently, show(LPP)
## a short subseries to demo 'print'
hC <- head(MSFT[ , "Close"])
class(hC)
print(hC)
print(hC, style = "h")
Run the code above in your browser using DataLab