R/subjOCCDIF.R

Defines functions subjOCCDIF

Documented in subjOCCDIF

subjOCCDIF <- function(x, stype = c("ObsScore","Theta","ThetaML","ScoreML")){

	if(missing(stype)) stype <- "ObsScore"
	OCCs <- list(length(x$DIF))
	
	for (i in 1:length(x$DIF)){
		OCCs[[i]] <- subjOCC(x$DIF[[i]],stype=stype)
	}
	
	return(OCCs)
	
}

Try the KernSmoothIRT package in your browser

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

KernSmoothIRT documentation built on March 26, 2020, 7:42 p.m.