# NOT RUN {
if (!exists("ctstantestfit")) example(ctstantestfit)
ctStanDiscretePars(ctstantestfit,times=seq(.5,4,.1),
plot=TRUE,indices='all')
#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