require(fBasics)
set.seed(123)
x<-timeSeries(matrix(rnorm(12)), timeCalendar())

basicStats(x)
