R/Mean.R

Mean<-function(x,w){
  if(missing(w)){
    Sum(x)/Count(x)
  }else{
    Sum(x,w)/Count(x,w)
  }
}
Aulide81/Descriptives documentation built on May 8, 2019, 6:43 p.m.