data.table::setDTthreads(1) #ignore this line
ctDiscretePars(ctstantestfit,times=seq(.5,4,.1),
plot=TRUE,indices='CR')
#modify plot
require(ggplot2)
g=ctDiscretePars(ctstantestfit,times=seq(.5,4,.1),
plot=TRUE,indices='CR')
g= g+ labs(title='Cross effects')
print(g)
Run the code above in your browser using DataLab