Nothing
A <- c(3000, 4000, 5000, 2000)
A0 <- 70000
bounds <- c(100, 90, 70, 80)
m <- c(100, 90, 70, 50)
M <- bounds
ucosts <- c(0.7, 15, 2, 3) # unit costs
N_pop507 <- pop507[, "N"]
A_pop507 <- N_pop507 * pop507[, "S"]
ucosts_pop507 <- pop507[, "unit_cost"]
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.