set.seed(666);
z = rpois(100,1);
x = c(z,rpois(200,5));
v = rpois(100,4);
y = c(v,rpois(200,8));
outz = generalized_poisson_likelihood(z);
outx = generalized_poisson_likelihood(x);
outv = generalized_poisson_likelihood(v);
outy = generalized_poisson_likelihood(y);
if(outz$mark == 1 && outx$mark == 1 && outv$mark == 1 && outy$mark == 1)
{
output = likelihood_ratio_generalized_poisson_exon_gene(z,outz$theta,outz$lambda,x,outx$theta,outx$lambda,v,outv$theta,outv$lambda,y,outy$theta,outy$lambda);
cat("Converged = ",output$mark," Test Statistic = ",output$Gptest,"\n");
}
Run the code above in your browser using DataLab