# \donttest{
kbdm_result <- kbdm_sews(serengeti, subsize = 3)
plot(kbdm_result, along = serengeti.rain)
kbdm_test <- indictest(kbdm_result, nulln = 49)
plot(kbdm_test, along = serengeti.rain)
# Plot deviation to null expectation
plot(kbdm_test, along = serengeti.rain, what = "z_score")
# }
Run the code above in your browser using DataLab