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()
# )
focal <- df$age
saveVars(focal
, fit
, df
, hhsize_mean
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.