#psedentary (unweighted mean & median values)
Psedentary<-function(data)
{
data%>%
mutate(cln_sedentary = if_else(p16cln==1, 1, 2, missing = 2))%>%
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.