backgroundSites <- readSequence(system.file("extdata", "background_sites.fa", package="ASEB"))
prodefinedSites <- readSequence(system.file("extdata", "predefined_sites.fa", package="ASEB"))
testProteins <- readSequence(system.file("extdata", "proteins_to_test.fa", package="ASEB"))
resultList <- asebProteins(backgroundSites, prodefinedSites, testProteins, permutationTimes=100)
resultList$results[1:2,]
Run the code above in your browser using DataLab