#assay_dds <- matrix(rpois(100, lambda = 10),nrow = 10,ncol = 10)
#
mayers_hypertest_correct <- function(IP_vec, input_vec, correct_IP, correct_input){
total_white_balls <- sum(IP_vec)
total_black_balls <- sum(input_vec)
balls_draw <- IP_vec + input_vec
white_balls_drawn <- IP_vec
pvalue <- phyper(q = white_balls_drawn,
m = total_white_balls,
n = total_black_balls,
k = balls_draw, lower.tail = F)
p.adjust(pvalue, method = "BH")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.