R/getLik.R

Defines functions getLik

	getLik<-function(x,answers){
		

		check<-numeric()

		for(i in 1:length(x)){
			if(answers[i]==0){check[i]<-(1-x[i])}
			else{check[i]<-x[i]}
		}			

		return(prod(check))
	

	}

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.