R/wmean.R

Defines functions wmean

wmean <- function(w,x) {
  # weighted mean
 ans <- sum(w * x) / sum(w)
 return(ans)
} # end function wmean
garciapintado/rdafEbm1D documentation built on May 3, 2019, 8:04 p.m.