estimate_differential_expression(reads, exons, genes, norm_gp, norm_p, do_permute)
likelihood_ratio_tissue_generalized_poisson
, likelihood_ratio_tissue_poisson
, reads
, exons
, genes
data(reads);
data(exons);
data(genes);
set.seed(666);
norm_gp = runif(6,0,1);
norm_p = runif(6,0,1);
output = estimate_differential_expression(reads,exons,genes,norm_gp,norm_p,0);
##Comparing Gene 1 between condition 1 and 2
cat("Mark = ",output$gp_comparison[[1,1,2]]$mark," Test Statistic with Generalized Poisson Model = ", output$gp_comparison[[1,1,2]]$Gptest,"\n");
cat("Test Statistic with Poisson Model = ",output$p_comparison[[1,1,2]]$Ptest,"\n");
Run the code above in your browser using DataLab