Nothing
print.inpoBootTests <-
function (x,...) {
res.inpoBootTests <- x
if (!inherits(res.inpoBootTests, "inpoBootTests")) stop ("no convenient data")
cat("**InPosition Bootstrap Ratio Tests data**\n")
cat("*Contains the following objects:\n\n")
res <- array("", c(3, 2), list(1:3, c("name", "description")))
res[1,] <- c("$sig.boot.ratios","Items with significant bootstrap ratios (labeled as TRUE).")
res[2,] <- c("$boot.ratios","The bootstrap ratio (BSR) of items.")
res[3,] <- c("$critical.value","The critical value used for the BSR test.")
print(res)
}
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.