Implementation of S3 method for TimeSeries class

I've added support for TimeSeries class (stats package, ts function). 
Basic script to see how works.

```
myts <- ts(myvector, start=c(2009, 1), end=c(2014, 12), frequency=3) 
pander(myts)
```