View source: R/prices_scores.R
soda_avail | R Documentation |
This function takes in the number of varieties of diet sodas available and returns the NEMS-S points associated with availability.
soda_avail(diet_soda_varieties)
diet_soda_varieties |
The number of diet sodas available. |
This function implements the scoring method described in Measure 8 of the NEMS-S Protocol. "Diet soda" has 0 kcal per serving.
The NEMS-S points associated with availability of diet soda.
diet_soda_varieties <- sample(0:3, 10) soda_avail(diet_soda_varieties)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.