# \donttest{
d <- data.frame(
id = c(1,1,2,2),
idOff = c(1,2,1,2),
y = c(1,2,1,3)
)
fit <- cosmic(d, id, idOff, y, iter = 300, chains = 1, cores = 1, threads = 1)
off_summary <- officer_summary(fit)
outliers <- outlier_report(off_summary)
outliers
# For a nicer looking report use kable()
# knitr::kable(outliers)
# }
Run the code above in your browser using DataLab