set.seed(666);
z = rpois(100,1);
x = c(z,rpois(200,5));
v = rpois(100,4);
y = c(v,rpois(200,8));
output = likelihood_ratio_poisson_exon_gene(z,x,v,y);
cat("Chi Square Statistic = ",output$Ptest,"\n");
Run the code above in your browser using DataLab