R/infitConfi.R

In hyunsooseol/BootFit: Bootstrap Rasch Item Infit and Outfit Statistics

#' Bootstrap boot infit.mnsq CI Function
#'
#' This function calculates bootstrap item infit 95% Confidence Interval
#' using 'boot' package
#' @param data: Data Frame
#'
#' @return: boot infit.mnsq CI Function
#'
#' @examples
#'    #Not run
#'    #infit.conf(data)
#'
#' @importFrom TAM tam.mml msq.itemfit
#' @importFrom boot boot.ci
#' @export


infit.conf <- function(object){

  boot.infit<- boot.infit(object)
  result=c()

    for (i in 1:ncol(object)) {

    ci=boot::boot.ci(boot.infit, index = i,
                     type = "basic")
    result=c(result, ci)

  }

  return(result)
}