data(ribo.prof)
#Get rna count data
test.rna <- ribo.prof$test.rna
#Read in rp count data, if rownames or colnames differ from rna count
# data, adjust them so that they are the same
test.rp <- ribo.prof$test.rp
#Assign group labels to samples. All groups will be tested pairwise.
test.group=c("A","B","A","B")
#Set the seed so the result is reproducibile
set.seed(12345)
#Run babel with 100000 repetitions.
## Not run:
# test.babel <- babel(test.rna,test.rp,group=test.group,nreps=100000,min.rna=10)
# #Extract within sample p-values (is translation expected given mRNA level per sample)
# within.babel <- test.babel$within
# #Extract within group combined p-values (is translation expected given
# # mRNA level per group label)
# Combined.babel <- test.babel$combined
# #Extract between group p-values (is translation given mRNA level the same between group)
# between.babel <- test.babel$between
# ## End(Not run)
Run the code above in your browser using DataLab