R/integrate.catR.R

In catR: Generation of IRT Response Patterns under Computerized Adaptive Testing

Defines functions integrate.catR

Documented in integrate.catR

integrate.catR<-function(x,y){
hauteur<-x[2:length(x)]-x[1:(length(x)-1)]
base<-apply(cbind(y[1:(length(y)-1)],y[2:length(y)]),1,mean)
res<-sum(base*hauteur)
return(res)}

Try the catR package in your browser