R/Count.R

Count<-function(x,w){
if(missing(w)){
    sum(!is.na(x),na.rm=T)
  }else{
    sum(w[!is.na(x)],na.rm=T)
  }
}
Aulide81/Descriptives documentation built on May 8, 2019, 6:43 p.m.