R/var.wil.R

Defines functions var.wil

var.wil <- function(a, b, flip = FALSE) {
  if (!flip) {
    return(mean(sapply(b, my.wilcox, x = a)))
  }
  if (flip) {
    return(mean(sapply(b, my.wilcox, y = a)))
  }
}

Try the SurrogateRank package in your browser

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

SurrogateRank documentation built on June 8, 2025, 10:27 a.m.