R/bootout.R

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

#' Bootstrap boot outfit.mnsq Function
#'
#' This function calculates bootstrap item outfit Mnsq using MML estimation
#' @param data: Data frame
#'
#' @return: Bootstrap t Statistics. Also see 'boot' package
#'
#' @examples
#'    #Not run
#'    #boot.outfit(object)
#'
#' @importFrom TAM tam.mml msq.itemfit
#' @importFrom boot boot boot.ci
#' @export

boot.outfit <- function(object){

  boot.fit<- boot::boot(data = object,statistic = boot.out,R=1000)

  return(boot.fit)
}