# NOT RUN {
attach(kinesin)
ide.mat <- seqidentity(pdbs)
# Plot identity matrix
plot.dmat(ide.mat, color.palette=mono.colors,
main="Sequence Identity", xlab="Structure No.",
ylab="Structure No.")
# Histogram of pairwise identity values
hist(ide.mat[upper.tri(ide.mat)], breaks=30,xlim=c(0,1),
main="Sequence Identity", xlab="Identity")
# Compare two sequences
seqidentity( rbind(pdbs$ali[1,], pdbs$ali[15,]) )
detach(kinesin)
# }
Run the code above in your browser using DataLab