R/covp.R

In optimStrat: Choosing the Sample Strategy

Defines functions covp

Documented in covp

covp <-
function(x,y) {
   n<- length(x)
   cov(x,y)*(n-1)/n
}

Try the optimStrat package in your browser