R/Sum.R

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