ground_beef_avail: Compute the availability points associated with ground beef

In byu-transpolab/nemsr: Process NEMS Datasets in R

Compute the availability points associated with ground beef

Description

This function takes in the number of varieties of lean and regular fat beef and returns the NEMS-S points associated with availability.

Usage

ground_beef_avail(lean_beef_varieties)

Arguments

lean_beef_varieties

The number of lean beef varieties (<10 percent fat).

Details

This function implements the scoring method described in Measure 4 of the NEMS-S Protocol. "Standard ground beef" is 80 percent lean and 20 percent fat by weight. "Lean ground beef" is 90 percent lean and 10 percent fat (or less fat percentage) by weight.

Value

The NEMS-S points associated with ground beef availability.

Examples

lean_beef_varieties <- sample(1:4, 10)
ground_beef_avail(lean_beef_varieties)

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