data(whales, events.whales)
ed <- getEventData(whales, events.whales, burnin=0.25, nsamples=500)
sc <- distinctShiftConfigurations(ed, expectedNumberOfShifts = 1, threshold = 5)
plot.bammshifts(sc, ed, rank=1)Run the code above in your browser using DataLab