# NOT RUN {
library(MASS)
attach(geyser)
##calculating excess mass for duration of 'Old Faithful Geyser' for lambda=0.2 allowing for one mode
excessm(duration, lambda=0.2)
##same as above, but allowing for up to three modes
excessm(duration, lambda=0.2, M=3)
#returns the intervals for modes 1,2 and 3
excessm(duration, lambda=0.2, M=3, UpToM=TRUE)
# }
Run the code above in your browser using DataLab