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.upp <- upper3(my.un.q,3)
sum(e.upp$fin1[1:3])
my.un.q[1]
Run the code above in your browser using DataLab