# NOT RUN {
if(w32chk()){
x <- ctStanDiscretePars(ctstantestfit)
ctStanDiscreteParsPlot(x, indices='CR')
#to modify plot:
g <- ctStanDiscreteParsPlot(x, indices='CR') +
ggplot2::labs(title='My ggplot modification')
print(g)
}
# }
Run the code above in your browser using DataLab