R/wOne.R

Defines functions wOne

wOne <-
function(x, w) {
  n <- nrow(x)
  m <- ncol(x)
  d <- sum(w * x) / sum(w)
  p <- rep(1, n)
  q <- rep(1, m)
  delta <- d * matrix(1, n, m)
  return(list(p = p, q = q, delta = delta))
}

Try the Correlplot package in your browser

Any scripts or data that you put into this service are public.

Correlplot documentation built on March 7, 2023, 8:33 p.m.