## 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 -
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