R/printmodid.R

In D3mirt: Descriptive 3D Multidimensional Item Response Theory Modelling

#' Print Method for S3 Objects of Class `modid`
#'
#' @description The print method for the [D3mirt::modid()] function.
#' @param x A S3 object of class `modid`.
#' @param ... Additional arguments.
#'
#' @return A printed message reporting the number of factors and the suggested model identification items.
#'
#' @examples
#' \dontrun{
#' # Load data
#' data("anes0809offwaves")
#' x <- anes0809offwaves
#' x <- x[,3:22] # Remove columns for age and gender
#'
#' # Identify the DMIRT model
#' id <- modid(x)
#'
#' # Print model identification summary
#' print(id)
#' }
#' @export
print.modid <- function(x, ...){
  f <- NULL
  for (i in seq_along(x$id)){
    item <- x$id[[i]]
    f[[i]] <- item[1,]
  }
  cat(paste("\nmodid:",  nrow(x$loadings), "items and", length(x$ss.loadings), "factors\n\n"))
  cat(paste("Model identification items:\n"))
  for (i in seq_along(x$id)){
    cat(paste("Item", i, rownames(f[[i]])), sep = " ", "\n")
  }
}