R/mingling.R

Defines functions mingling

Documented in mingling

mingling <-
function(x){
  k<-length(which(x[2:5]!=x[1]))
  if(k==0){m=0}
  if(k==1){m=0.25}
  if(k==2){m=0.5}
  if(k==3){m=0.75}
  if(k==4){m=1}
  return(m)
}

Try the forestSAS package in your browser

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

forestSAS documentation built on May 1, 2019, 10:15 p.m.