data.table::setDTthreads(1) #ignore this line
ctStanDiscretePars(ctstantestfit,times=seq(.5,4,.1),
plot=TRUE,indices='CR')
#modify plot
require(ggplot2)
g=ctStanDiscretePars(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