s = read.fasta(File=system.file("sequences/seqAA.fasta",package="seqinr"),seqtype="AA")
is.SeqFastaAA(s[[1]])
summary(s[[1]])
myseq = s2c("MSPTAYRRGSPAFLV*")
as.SeqFastaAA(myseq, name = "myseq", Annot = "blablabla")
myseq
Run the code above in your browser using DataLab