# NOT RUN {
data(sequences)
dm2 <- splitSequence(sequences, peptide)
dm3 <- calcInformation(dm2, pos = position, elems = element, trt = class, k = 21)
# precursor to a logo plot:
library(ggplot2)
# library(biovizBase)
# }
Run the code above in your browser using DataLab