R/print.inpoBootTests.R

In InPosition: Inference Tests for ExPosition

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)

}