wieners_cost: Compute wieners cost points

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

Compute wieners cost points

Description

This function takes in the cost of lean and regular fat weiners and compares them to return a NEMS-S score for the cost.

Usage

wieners_cost(lean_wieners_price, regular_wieners_price)

Arguments

lean_wieners_price	The price of hot dogs with less fat.
regular_wieners_price	The price of normal fat hot dogs.

Details

This function implements the scoring method described in Table 4.1 of Lundsford (2016). "Fat free hot dogs" have 0 grams of fat per serving, and "light hot dogs" have less than or equal to 7 grams of fat per serving.

Value

The NEMS-S points associated with wiener price.

Examples

lean_wieners_price <- rnorm(10,2.5,.3)
regular_wieners_price <- rnorm(10,1.4,.5)
wieners_cost(lean_wieners_price,regular_wieners_price)

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