R/differ.R

differ<-function(x){
  k<-length(unique(x[1:5]))
  if(k==1){m=0}
  if(k==2){m=0.25}
  if(k==3){m=0.5}
  if(k==4){m=0.75}
  if(k==5){m=1}
  return(m)
}
Zongzheng/forestSAS documentation built on May 10, 2019, 1:59 a.m.