R/is.binary.R

is.binary<-
function(x){
if(length(table(x))==2){binary<-TRUE}
else {binary<-FALSE}
binary
}

Try the RcmdrPlugin.pointG package in your browser

Any scripts or data that you put into this service are public.

RcmdrPlugin.pointG documentation built on May 2, 2019, 3:26 p.m.