library(shellpipes)
library(dplyr)
loadEnvironments()
## Choose the same focal values
quants <- seq(0, 1, length.out=200)
focal <- (quantile(df$age, quants, names=FALSE)
|> unique()
)
saveVars(focal
, fit
, df
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.