## Not run:
# data(kinesin)
# attach(kinesin, warn.conflicts=FALSE)
# k <- filter.rmsd(xyz=pdbs,cutoff=0.5)
# pdbs$id[k$ind]
# plot(k$tree, ylab="RMSD")
# abline(h=0.5, col="gray")
#
# detach(kinesin)
# ## End(Not run)
Run the code above in your browser using DataLab