# NOT RUN {
data(hotcold)
# cctfit <- cctapply(data = hotcold, clusters = 2, itemdiff = TRUE, samples = 10000,
# chains = 3, burnin = 2000, runchecks = FALSE)
# dtraceplot(cctfit)
# }
Run the code above in your browser using DataLab