R/wt.mean.R

In LPGraph: Nonparametric Smoothing of Laplacian Graph Spectra

Defines functions wt.mean

Documented in wt.mean

wt.mean <-
function(x,wt){
  s = which(is.finite(x * wt))
  wt = wt[s]
  x = x[s]
  return(sum(wt * x)/sum(wt))
}

Try the LPGraph package in your browser