micros {foodquotient}

Micronutrients

Description

The Micronutrients function takes the age of a participant and their responses on the hsffq to generate an estimate of the participant's total daily micronutrients consumed for each food.

Usage

micros(row)

Arguments

row

contains two components. f1:f85 1-9, representing different frequency factor responses from the hsffq. These will be stored in columns 2-86 in the row you plug in . A value representing participant's age. This will be stored in column 1 of the input row

Value

the row or dataframe returned will have 7 entries, representing total daily amounts of 7 micronutrients for each participant

Examples

random_integers <- sample(1:8, 85, replace=TRUE)
vec <- c(6.2, random_integers)
micros(vec)

rquestionnaire <- function(n, n_food_questions = 85) {
  mat <- matrix(
    sample(1:9, n_food_questions*n, replace = TRUE),
    nrow = n, ncol = n_food_questions
  )
  df <- data.frame( age = round(runif(n, 2, 11), digits = 1) )
  cbind(df, as.data.frame(mat))
}
df <- rquestionnaire(4)

df_results <- data.frame()
for (i in 1:nrow(df)) {
result <- micros(df[i,])
df_results <- rbind(df_results, result)
}