# NOT RUN {
# Read alignment
aln <- read.fasta(system.file("examples/kif1a.fa",package="bio3d"))
## alignment plot
plot(aln, labels=basename.pdb(aln$id))
## Works also for a 'pdbs' object
attach(transducin)
plot(pdbs)
detach(transducin)
# }
# NOT RUN {
infile <- "http://pfam.xfam.org/family/PF00071/alignment/seed/format?format=fasta"
aln <- read.fasta( infile )
plot(aln)
# }
Run the code above in your browser using DataLab