Nothing
epval_Chen2010_diffcov <- function(sam1, sam2, n.resam = 1000, sam.cov1, sam.cov2, cov1.est, cov2.est, cv.fold = 5, norm = "F", seeds, optim.bandwidth1, optim.bandwidth2, output.opt.bw1, output.opt.bw2){
n1 <- dim(sam1)[1]
n2 <- dim(sam2)[1]
p <- dim(sam1)[2]
if(cv.fold != floor(cv.fold) | cv.fold <= 1) stop("cv.fold must be an integer greater than 1.")
T_CQ_0 <- stat_Chen2010(sam1, sam2)
T_CQ_resam <- rep(NA, n.resam)
for(b in 1:n.resam){
if(!is.null(seeds)) set.seed(seeds[b])
sam1.b <- rmnorm(n = n1, mean = rep(0, p), cov1.est)
sam2.b <- rmnorm(n = n2, mean = rep(0, p), cov2.est)
T_CQ_resam[b] <- stat_Chen2010(sam1.b, sam2.b)
}
p.CQ <- (sum(T_CQ_resam > T_CQ_0) + 1)/(n.resam + 1)
pval <- p.CQ
names(pval) <- "Chen2010"
out <- NULL
out$sam.info <- c("n1" = n1, "n2" = n2, "p" = p)
if(output.opt.bw1) out$opt.bw1 <- optim.bandwidth1
if(output.opt.bw2) out$opt.bw2 <- optim.bandwidth2
out$cov.assumption <- "the two groups have different covariances"
out$method <- "parametric bootstrap"
out$pval <- pval
return(out)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.