powered by
pfam(id, alignment = "seed", verbose = FALSE)
read.fasta
hmmer
get.seq
uniprot
aln <- pfam("piwi") aln <- pfam("PF02171") seq <- get.seq("1rx2_A", outfile = tempfile()) hmm <- hmmer(seq, type="hmmscan", db="pfam") aln <- pfam(hmm$acc[1])
Run the code above in your browser using DataLab