s <- read.fasta(system.file("sequences/malM.fasta",package="seqinr"))
is.SeqFastadna(s[[1]])
summary(s[[1]])
myseq <- s2c("acgttgatgctagctagcatcgat")
as.SeqFastadna(myseq, name = "myseq", Annot = "blablabla")
myseq
Run the code above in your browser using DataLab