data.table::setDTthreads(1) #ignore this line
x <- ctDiscretePars(ctstantestfit)
ctDiscreteParsPlot(x, indices='CR')
#to modify plot:
g <- ctDiscreteParsPlot(x, indices='CR') +
ggplot2::labs(title='My ggplot modification')
print(g)
Run the code above in your browser using DataLab