# NOT RUN {
# }
# NOT RUN {
set.seed(13)
num.ResTypes <- sample(1:10, 20, replace = TRUE)
res.types <- rep(names.residues, num.ResTypes)
getResTypeCounts(res.types)
# [1] 8 3 5 10 6 6 4 8 3 1 10 7 7 5 1 6 8 1 1 4
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab