myIRF.c <- irf(mySVAR, n.ahead=12, ci=.68, cumulative=TRUE)
plotIRF(myIRF.c, lwd=2.5, ask=FALSE, vnames="dlrLP", vlabels="Labor Productiviey", slabels=c("technology shock","non-technology shock"))
plotIRF(myIRF.c, lwd=2.5, ask=FALSE, vnames="dlTH", vlabels="Total Hours", slabels=c("technology shock","non-technology shock"))