if (FALSE) {
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