require(DivE)
data(Bact1)
dss_1 <- DivSubsamples(Bact1, nrf=2, minrarefac=1, maxrarefac=100,
NResamples=10)
dss_2 <- DivSubsamples(Bact1, nrf=20, minrarefac=1, maxrarefac=100,
NResamples=10)
# Default NResamples=1000; low value of NResamples=10 is a set for quick evaluation
dss_1
dss_2
summary(dss_1)
dss_1$div_sd
dss_1$NResamples
Curvature(dss_1)
Run the code above in your browser using DataLab