Nothing
stat_Chen2014 <- function(sam1, sam2){
sam.cov1 <- cov(sam1)
sam.cov2 <- cov(sam2)
test.stat <- max_threshold_diffcov(sam1, sam2, sam.cov1, sam.cov2)
test.stat <- as.numeric(test.stat)
return(test.stat)
}
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.