inst/mld_diffmean2.R

mld_diffmean2 <- function(...){llply(combn, function(x, xbar_ls){
  (xbar_ls[[x[1]]] - xbar_ls[[x[2]]]) %*% t(xbar_ls[[x[1]]] - xbar_ls[[x[2]]])
}, xbar_ls = xbar_ls)
}
BenBarnard/slidR documentation built on Jan. 2, 2018, 4:32 p.m.