foodquotient (version 0.1.1)

micros: 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)

Value

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

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

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)
}