data(HEC_MI1)
# the contribution of an arginine ("R")
# located 3 residues left of center
# to a helical ("H") state at the center
HEC_MI1["R", "-3", "H"]
data(HEC_MI2)
# the contribution of arginine and lysine ("K")
# located at positions -1 and +1, respectively
# to a coil ("C") state at the center position
HEC_MI2["R", "K", "-1", "1", "C"]
matplot(-10:10, t(HEC_MI1[,, "H"]),
type="l", col=1:8, lty=rep(1:3, each=8),
xlab="Amino Acid Position Relative to Center",
ylab="Log-Odds of Helix at Center Position")
legend("bottomleft",
lwd=1, col=1:8, lty=rep(1:3, each=8),
legend=dimnames(HEC_MI1)[[1]], ncol=2)
Run the code above in your browser using DataLab