# vector of weights
weights <- c(1001,2,3,400,5,700,9,1,800,79223)
# weights below the thresholds are not affected
# by capWeight
capWeight(weights)
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.