Nothing
##############################################
#### Functions for class("relative.array") ####
##############################################
#' Print posterior medians (95% credible intervals) for table of relative effects/mean
#' differences between treatments/classes
#'
#' @param x An object of class `"relative.array"` generated by `get.relative()`
#' @param digits An integer indicating the number of significant digits to be used.
#' @param ... further arguments passed to `knitr::kable`
#'
#' @return Prints a league table of treatment effects to the console
#'
#' @export
print.relative.array <- function(x, digits=2, ...) {
xmat <- x$relarray
outmat <- matrix(nrow=nrow(xmat), ncol=ncol(xmat))
# dimnames(outmat)[[1]] <- dimnames(xmat)[[1]]
# dimnames(outmat)[[2]] <- dimnames(xmat)[[2]]
for (i in 1:nrow(xmat)) {
for (k in 1:ncol(xmat)) {
if (!is.na(xmat[i,k,1])) {
outmat[i,k] <- neatCrI(stats::quantile(xmat[i,k,], probs=c(0.025, 0.5, 0.975)), digits = digits)
}
}
}
diag(outmat) <- dimnames(xmat)[[1]]
cat(crayon::bold(paste0("========================================\nTreatment comparisons at time = ", x$time, "\n========================================\n")))
cat("\n")
#knitr::kable(outmat, ...)
utils::write.table(format(outmat, justify="centre"), row.names = FALSE, col.names = FALSE, quote=FALSE)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.