juice_drinks_avail: Compute the availability points associated with healthier...

View source: R/prices_scores.R

juice_drinks_availR Documentation

Compute the availability points associated with healthier juice drinks

Description

This function takes in the number of varieties of 100 percent juice drinks and returns the NEMS-S points associated with availability.

Usage

juice_drinks_avail(healthy_juice_varieties)

Arguments

healthy_juice_varieties

The number of 100 percent juice drinks available.

Details

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.

Value

The NEMS-S points associated with availability of healthy juice drinks.

Examples

healthy_juice_varieties <- sample(0:3, 10)
juice_drinks_avail(healthy_juice_varieties)

byu-transpolab/nemsr documentation built on Feb. 10, 2023, 11:24 p.m.