data(whales, events.whales)
ed <- getEventData(whales, events.whales, burnin=0.1, nsamples=500)
# Get the maximum shift credibility configuration:
msc <- maximumShiftCredibility(ed)
# Get the nodes at which shifts occurred in the
# maximum shift credibility configuration:
getShiftNodesFromIndex(ed, index=msc$sampleindex)
Run the code above in your browser using DataLab