s1 = readFASTA(system.file('protseq/P00750.fasta', package = 'Rcpi'))[[1]]
s2 = readFASTA(system.file('protseq/P10323.fasta', package = 'Rcpi'))[[1]]
seqalign = calcTwoProtSeqSim(s1, s2)
summary(seqalign)
print(seqalign@score)
Run the code above in your browser using DataLab