R/print.tinpoBootTests.R

In TInPosition: Inference Tests for TExPosition

print.tinpoBootTests <-
function (x,...) {

  res.tinpoBootTests <- x
  if (!inherits(res.tinpoBootTests, "tinpoBootTests")) stop ("no convenient data")
  cat("**TInPosition 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)

}