R/Mode.R

Defines functions Mode

Mode = function(x,na.rm=FALSE){
  if(na.rm) useNA='no' else useNA='always'
  table(x,useNA=useNA) %>% data.frame %>% arrange(desc(Freq)) %>% .[1,1] %>% as.character() %>% as.numeric()
}
douve/UEMR documentation built on July 3, 2024, 12:43 a.m.