library(seqinr)
fasta <- read.fasta(file.path(system.file("extdata", package="TKF"),
"pair1.fasta"),
seqtype="AA", set.attributes=FALSE)
AAToInt(fasta[[1]])
AACharacterSet
Run the code above in your browser using DataLab