# NOT RUN {
# Read alignment
aln <- read.fasta(system.file("examples/hivp_xray.fa",package="bio3d"))
# Print alignment overview
aln
# Sequence names/ids
head( aln$id )
# Alignment positions 335 to 339
head( aln$ali[,33:39] )
# Sequence d2a4f_b
aa123( aln$ali["d2a4f_b",] )
# Write out positions 33 to 45 only
#aln$ali=aln$ali[,30:45]
#write.fasta(aln, file="eg2.fa")
# }
Run the code above in your browser using DataLab