msa = system.file("extdata", "msa.fasta", package = "MethTargetedNGS")
tumor = system.file("extdata", "Tumor.fasta", package = "MethTargetedNGS")
if (file.exists("/usr/bin/hmmbuild"))
{hmmbuild(file_seq=msa,file_out="hmm",pathHMMER = "/usr/bin")
res <- nhmmer("hmm",tumor,pathHMMER = "/usr/bin")
res}
Run the code above in your browser using DataLab