# loading data
data("shifts_cetacea")
# Removing "BVAR_DCST" model for the example
shifts_cetacea_noBVAR_DCST <- remove.model(shift.res = shifts_cetacea,
model = "BVAR_DCST")
Run the code above in your browser using DataLab