# NOT RUN {
data("metric")
data("samples")
# Run MAPI computation
resu <- MAPI_RunAuto(samples, metric, crs=3857, nbPermuts=1000)
# Discards the 10% cells with the smallest sum-of-weights
# and aggregates adjacent cells belonging to the same tail
# at a 5% significance level
tails <- MAPI_Tails(resu, minQ=10, alpha=0.05)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab