R/dataModel.R

In ryentes/rdy-dissertation-tools: Utilities used in the execution of my dissertation code

#' A data model object
#' 
#' This function defines a class of data model. It takes a matrix of factor
#' correlations and a matrix of item parameters as inputs, then computes the
#' model slopes then returns a dataModel object which can be used as an input
#' for data simulation.
#' 
#' @keywords data model
#' @author Richard D. Yentes \email{ryentes@ncsu.edu}
#' @param factorCorllations a matrix of factor correlations
#' @param itemParameters a matrix of IRT item parameters
#' @param nchar the number of characters to retain from the factor labels
#' @export
dataModel <- function(factorCorrelations, itemParameters, nchar) {
  a <- modelSlopes(itemParameters, colnames(factorCorrelations), nchar)
  d <- as.matrix(itemParameters[,2:ncol(itemParameters)])
  
  this.dataModel <- structure(
    list(
      factorCorrelations = factorCorrelations,
      itemParameters = itemParameters,
      a = a,
      d = d
    ), class = "dataModel"
  )
}