R/epan.R

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)
	
}
jagonzalb/SNSequate documentation built on May 18, 2019, 9:07 a.m.