chips_avail: Compute lowfat chips availability points

View source: R/prices_scores.R

chips_availR Documentation

Compute lowfat chips availability points

Description

This function takes in the number of varieties of lowfat chips and returns the NEMS-S points associated with availability.

Usage

chips_avail(lowfat_chips_varieties)

Arguments

lowfat_chips_varieties

The number of varieties of lowfat chips offered.

Details

This function implements the scoring method described in Measure 10 of the NEMS-S Protocol. "Lowfat chips" are chips with less than or equal to 3g of fat per one ounce serving.

Value

The NEMS-S points associated with lowfat chips availability.

Examples

lowfat_chips_varieties <- sample(1:10, 10)
chips_avail(lowfat_chips_varieties)

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