R/Std.dev.R

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