# NOT RUN {
data(mscdata)
van.int <- interarrival(mksub(mscdata, id=1108447))
summary(van.int)
van.int[which.max(van.int$dry),]
van.int[which.max(van.int$wet),]
plot(van.int, ylog=FALSE, maxy=30)
# }
Run the code above in your browser using DataLab