View source: R/prices_scores.R
juice_drinks_avail | R Documentation |
This function takes in the number of varieties of 100 percent juice drinks and returns the NEMS-S points associated with availability.
juice_drinks_avail(healthy_juice_varieties)
healthy_juice_varieties |
The number of 100 percent juice drinks available. |
This function implements the scoring method described in Measure 8 of the NEMS-S Protocol. "Healthy juice" is 100 percent juice drinks, natural fruit juice with no added sugars.
The NEMS-S points associated with availability of healthy juice drinks.
healthy_juice_varieties <- sample(0:3, 10) juice_drinks_avail(healthy_juice_varieties)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.