R/epan.R

In SNSequate: Standard and Nonstandard Statistical Models and Methods for Test Equating

Defines functions pepan depan

depan = function(x)
{
	den=(x>=-1 & x<=1)*(3/4)*(1-x^2)
	return(den)
}

pepan = function(x)
{
	prob=((x>=-1 & x<=1)*((3*x-x^3+2)/4)) + (1*(x>1))
	return(prob)
	
}

Try the SNSequate package in your browser