R/cov.mba.R

cov.mba <-
function(x,COR=FALSE){
val<-covmba2(x)$cov
if(COR){
val=val/outer(sqrt(diag(val)),sqrt(diag(val)))
}
val
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.