# NOT RUN {
B <- Binomial$new()
decorate(B, CoreStatistics)
E <- Exponential$new()
decorate(E, list(CoreStatistics, ExoticStatistics))
E <- Exponential$new()
decorate(E, list(CoreStatistics, "ExoticStatistics"))
E <- Exponential$new()
decorate(E, c("CoreStatistics", "ExoticStatistics"))
# }
Run the code above in your browser using DataLab