# NOT RUN {
dtb <- jubilee.repo(online=FALSE)@ie
df <- jubilee.ols(dtb$fraction, dtb$log.tri, 50)
subset(df, fraction > 1970 & fraction < 1970.05)
# fraction lm.a lm.r lm.y
# 1970.042 11.86401 0.1007617 0.02103105
# }
Run the code above in your browser using DataLab