## Not run:
# ##- PDB example
# # Read a PDB file
# pdb <- read.pdb("1bg2")
# sse <- dssp(pdb)
# sse2 <- stride(pdb)
#
# ## Short summary
# sse
# sse2
#
# # Helix data
# sse$helix
#
# # Precent SSE content
# sum(sse$helix$length)/sum(pdb$calpha) * 100
# sum(sse$sheet$length)/sum(pdb$calpha) * 100
#
#
#
# ##- PDBs example
# aln <- read.fasta( system.file("examples/kif1a.fa",package="bio3d") )
# pdbs <- read.fasta.pdb( aln )
#
# ## Aligned PDB defined secondary structure
# pdbs$sse
#
# ## Aligned DSSP defined secondary structure
# sse <- dssp(pdbs)
#
#
# ##- XYZ Trajectory
# pdb <- read.pdb("2mda", multi=TRUE)
# dssp.xyz(pdb$xyz, pdb)
#
# ## Note. for large MD trajectories you may want to skip some frames, e.g.
# xyz <- rbind(pdb$xyz, pdb$xyz) ## dummy trajectory
# frames <- seq(1, to=nrow(xyz), by=4) ## frame numbers to examine
# ss <- dssp.xyz(xyz[frames, ], pdb) ## matrix of sse frame x residue
#
# ## End(Not run)
Run the code above in your browser using DataLab