nwin <- 20
set.seed(20)
ids <- sample(5, nwin, replace=TRUE)
summits <- sample(5, nwin, replace=TRUE)==1L
weights <- upweightSummit(ids, summits)
# Checking that the summit is upweighted in each cluster.
split(data.frame(summits, weights), ids)
Run the code above in your browser using DataLab