library(tswge)
data(tx.unemp.adj)
#Monthly seasonally adjusted Texas unemployment data
#Create a quarterly sum
my.un.q <- aggregate(tx.unemp.adj,nfreq=4)
e.low <- lower3(my.un.q,3)
sum(e.low$fin1[1:3])
my.un.q[1]
Run the code above in your browser using DataLab