> mean(data1$series1)
> median(data1$series1)
> var(data1$series1)
> sd(data1$series1)
> coef.var<- sd(data1$series1/mean(data1$series1))
> IQR(data1$series1)
> hist(data1$series1)
> boxplot(data1$series1)