if (FALSE) {
serengeti_ews <- variogram_sews(serengeti, model ="exp")
# Display the change in variogram parameters
plot(serengeti_ews, along = serengeti.rain) +
ggplot2::labs(x = "Rainfall (mm)")
# Visualize the fitted variograms
plot_variogram(serengeti_ews, along = serengeti.rain)
# Test the trends (nulln should be set to a higher value to obtain
# meaningful results
serengeti_test <- indictest(serengeti_ews, nulln = 19)
plot(serengeti_test, along = serengeti.rain)
plot_variogram(serengeti_test, along = serengeti.rain)
}
Run the code above in your browser using DataLab