# NOT RUN {
p <- new("Partition", c(0, 0, 1, 1, 1))
q <- new("Partition", c("a", "a", "b", "b", "b"))
# }
# NOT RUN {
# This won't work:
new("Partition", c(list("a"), "a", "b", "b", "b"))
p[2] <- 2
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab