if (FALSE) {
CoTiMAInitFit_3$activeDirectory <- "/Users/tmp/" # adapt!
CoTiMAFullFit_3$activeDirectory <- "/Users/tmp/" # adapt!
plot(ctmaFitList(CoTiMAInitFit_3, CoTiMAFullFit_3),
timeUnit="Months",
timeRange=c(1, 144, 1) )
}
Run the code above in your browser using DataLab