x <- c(33, 32, 86, 51, 52, 149)
tx <- c(7742608, 15581382, 20933491, 7126839, 13842297, 14760103)
group <- c(rep("cancer", 3), rep("normal", 3))
ibb.test(x, tx, group)
# p.value = 0.004103636
# fc = 2.137632
Run the code above in your browser using DataLab