# NOT RUN {
set.seed(1)
table <- data.frame(zone = 1:5, duration = 1, score = 5:1)
zones <- list(1:2, 1:3, 2:5, c(1, 3), 4:5, c(1, 5))
top_clusters(list(table = table), zones, k = 4, overlapping = FALSE)
# }
Run the code above in your browser using DataLab