R/gini_index.R

gini_index <-
function(Klassen_vektor){
  if (length(Klassen_vektor)==0) return(0)
  return(1-sum((table(Klassen_vektor)/length(Klassen_vektor))^2))
}

Try the NHEMOtree package in your browser

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

NHEMOtree documentation built on May 2, 2019, 7:32 a.m.