R/plotINFO.R

Defines functions plotINFO

Documented in plotINFO

plotINFO <- function(ermobject, type = "both", theta = seq(-6, 6, length.out = 1001L), legpos = "topright", ...){

  ddd <- list(...)
  get_dots <- function(element, default){ ifelse(!is.null(ddd[[element]]), ddd[[element]], default) }
  extraVars <- c("mainI", "mainT", "ylabI", "ylabT", "xlab", "legpos")
  if(any(!(names(ddd) %in% extraVars))){ warning("additional argument(s) ignored.") }

  type <- match.arg(type, c("item", "test", "scale","both", "category"))

  if(type == "both"){
    old_pars <- par(mfrow=c(2L, 1L), no.readonly = TRUE)
    on.exit(par(old_pars))
  }

  if(type %in% c("category")){
    iinfo <- item_info(ermobject, theta)
    info <- lapply(iinfo, function(x) x$c.info)
    par(ask = TRUE)
    lapply(info,function(infos)
                {
                catnames <-paste("C",0:(ncol(infos)-1)) 
                matplot(x=theta,y=infos,type="l",main = get_dots("mainI", "Item-Category Information"), xlab = get_dots("xlab", "Latent Trait"), ylab = get_dots("ylabI", "Information"))
                if(is.character(legpos)) legend(legpos, legend = catnames, pch = NULL, lty = 1:5, col = 1:6)
                }
           )
    par(ask=FALSE)
    }
    
  if(type %in% c("item", "both")){
    iinfo <- item_info(ermobject, theta)
    info <- lapply(iinfo, function(x) x$i.info)
    pltinfo <- matrix(unlist(info), ncol = ncol(ermobject$X))
    matplot(x = theta, y = pltinfo, type = "l", main = get_dots("mainI", "Item Information"), xlab = get_dots("xlab", "Latent Trait"), ylab = get_dots("ylabI", "Information"))
    itmnames <- colnames(ermobject$X)
    if (is.null(itmnames)) itmnames <- paste("Item", 1:ncol(ermobject$X))
    if(is.character(legpos)) legend(legpos, legend = itmnames, pch = NULL, lty = 1:5, col = 1:6)  
  }

    if(type %in% c("test", "scale", "both")){
    tinfo <- test_info(ermobject, theta)
    plot(x = theta, y = tinfo, type = "l", main = get_dots("mainT", "Scale Information"), xlab = get_dots("xlab", "Latent Trait"), ylab = get_dots("ylabT", "Scale Information"))
  }

}

Try the eRm package in your browser

Any scripts or data that you put into this service are public.

eRm documentation built on May 29, 2024, 2:12 a.m.