test <- c(1, 5, 7, 3, 9, 2, 4, 3, 6, 8)
fq(test)
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(6)
fq(df)
Run the code above in your browser using DataLab