if (FALSE) {
data(serengeti)
serengeti.sdr <- raw_sdr(serengeti[[1]],
sdr_low_range = c(0, 0.2),
sdr_high_range = c(0.8, 1))
compute_indicator(serengeti, raw_sdr)
}
Run the code above in your browser using DataLab