if (FALSE) {
data(forestgap)
psd_indic <- patchdistr_sews(forestgap)
plot(psd_indic, along = forestgap.pars[ ,"d"])
# When along is non-numeric, bars are used for display
plot(psd_indic, along = as.factor(forestgap.pars[ ,"d"]))
# Display individual distributions
plot_distr(psd_indic, along = forestgap.pars[ ,"d"])
# We can display the distributions along with the null expectation after
# indictest() is run
psd_test <- indictest(psd_indic, nulln = 19)
plot_distr(psd_test, along = forestgap.pars[ ,"d"])
}
Run the code above in your browser using DataLab