data.table::setDTthreads(1) #ignore this line
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