# \donttest{
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