R/class.Rud.R

In cacIRT: Classification Accuracy and Consistency under Item Response Theory

class.Rud <-
function( cutscore, ip, ability = NULL, se=NULL, rdm = NULL, quadrature=NULL, D = 1.7){
	 	
		if(is.null(quadrature)){
		if(is.null(ability)){
			
			os <- MLE(rdm, ip, D)
			se <- SEM(ip,os, D)} else{
			os <- ability
			se <- se}
	
		results <- Rud.P(cutscore, os, se)
		results
		
		} else {
			
			if(length(quadrature)!=2) stop("quadrature points and weights must be a list of legth 2")
			if(length(quadrature[[1]])!=length(quadrature[[2]])) stop("number of quadrature points and weights do not match")
			
		se<-SEM(ip,quadrature[[1]])							
		results <- Rud.D(cutscore, quadrature, se)				
	results}}