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 Aug. 28, 2023, 2:30 p.m.