R/is.bern.R

In DnE: Distribution and Equation

Defines functions is.bern

Documented in is.bern

is.bern <-
function(x)
{
	re=Inf;
	for(i in 1:length(x))
		if(x[i]!=1&&x[i]!=0)
			re=-1;
        if(re==-1)   
        {  
	    return(data.frame("state"=-1,"pvalue"=1));
        }
        else
        {
            return(data.frame("qchisq"=Inf,"pvalue"=0));  
        }
}

Try the DnE package in your browser