setMethod(
"print", "mfboot",
function(x, ...) {
cat(x$nboot, "bootstrap samples")
cat("\n", paste(100 * (1 - x$alpha), "%", sep = ""),
"confidence interval\n")
cat(paste("Seed = ", x$seed))
cat("\n")
cat("\nComparing", x$compare[2], "to", x$compare[1], "\n")
print(x$stat)
cat("\n")
}
)
setMethod(
"show", "mfboot",
function(object) {
print(object)
}
)
setMethod("print", "mfhlboot",
function(x, ...) {
cat("\n", x$nboot, " bootstrap samples", sep = "")
cat("\n", paste(100 * (1 - x$alpha), "%", sep = ""),
" confidence intervals", sep = "")
cat("\nComparing", x$compare[2], "to", x$compare[1], "\n\n")
cat(paste("Seed = ", x$seed))
cat("\nMitigated Fraction\n\n")
print(x$MFstat)
cat("\n\nHodges-Lehmann\n\n")
print(x$HLstat)
cat("\n\nQuartile Differences (quartiles of ", x$compare[2],
" - quartiles of ", x$compare[1], ")\n\n", sep = "")
print(x$QDIFstat)
cat("\n\nQuartiles of", x$compare[1], "\n")
print(x$QXstat)
cat("\n\nQuartiles of", x$compare[2], "\n")
print(x$QYstat)
cat("\n")
})
setMethod(
"show", "mfhlboot",
function(object) {
print(object)
}
)
setMethod(
"print", "mfmp",
function(x, ...) {
cat(x$what, "\n")
print(x$ci)
}
)
setMethod(
"show", "mfmp",
function(object) {
print(object)
}
)
setMethod(
"print", "mfbootcluster",
function(x, ...) {
cat("\n\n", x$what, sep = "")
cat("\nComparing", x$compare[2], "to", x$compare[1], "\n")
cat(paste("Seed = ", x$seed))
cat("\n", paste(100 * (1 - x$alpha), "%", sep = ""),
"confidence interval\n\n")
print(x$stat)
if (!is.null(x$excludedClusters)) {
exc <- paste(x$excludedClusters, collapse = ", ")
} else {
exc <- "None"
}
cat("\nExcluded Clusters\n", exc, "\n")
cat("\n")
}
)
setMethod(
"show", "mfbootcluster",
function(object) {
print(object)
}
)
#' @importFrom stats na.omit
setMethod("print", "mfcluster",
function(x, ...) {
cat("\nComparing", x$compare[2], "to", x$compare[1], "\n")
cat("\nMF = ", x$All$mf, "\n")
cat("\nBy Cluster\n")
byclus <- na.omit(x$byCluster)
attributes(byclus)$na.action <- NULL
print(byclus)
cat("\nAll\n")
print(x$All)
if (!is.null(x$excludedClusters)) {
exc <- paste(x$excludedClusters, collapse = ", ")
} else {
exc <- "None"
}
cat("\nExcluded Clusters\n", exc, "\n")
cat("\n")
})
setMethod(
"show", "mfcluster",
function(object) {
print(object)
}
)
setMethod("print", "mfcomponents",
function(x, ...) {
cat("\nMF =", x$mf, "comparing",
x$compare[2], "to", x$compare[1], "\n")
subj <- data.frame(x$subj)
mfju <- unique(subj$mf_j)
nu <- length(mfju)
subtab <- data.frame(mf_j = mfju,
freq = rep(NA, nu),
min_y = rep(NA, nu),
max_y = rep(NA, nu))
subtab <- subtab[rev(order(subtab$mf_j)), ]
for (i in seq_len(nrow(subtab))) {
ys <- subj$y[subj$mf_j == subtab$mf_j[i]]
subtab$freq[i] <- length(ys)
subtab$min_y[i] <- min(ys)
subtab$max_y[i] <- max(ys)
}
cat("\nMF Subject Components\n\n")
print(subtab, row.names = FALSE)
cat("\n")
})
setMethod(
"show", "mfcomponents",
function(object) {
print(object)
}
)
setMethod(
"print", "mfhierdata",
function(x, ...) {
print(x$coreTbl)
}
)
setMethod(
"show", "mfhierdata",
function(object) {
print(object)
}
)
setMethod(
"print", "mfclushier",
function(x, ...) {
print(x$MFnest)
}
)
setMethod(
"show", "mfclushier",
function(object) {
print(object)
}
)
setMethod(
"print", "mfclusboothier",
function(x, ...) {
print(x$MFnestBoot$mfnest_summary)
}
)
setMethod(
"show", "mfclusboothier",
function(object) {
print(object)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.