model_plot: Plot Results from Weight Change Model

In INSP-RH/bw: Dynamic Body Weight Models for Children and Adults

Plot Results from Weight Change Model

Description

Generates a plot for list from adult_weight or child_weight.

Usage

model_plot(model, plotvars = names(model)[-which(names(model) %in% c("Time",
  "BMI_Category", "Age", "Correct_Values", "Model_Type"))], timevar = "Time",
  title = "Hall's model results", ncol = 2)

Arguments

model	(list) List from adult_weight or child_weight Optional
plotvars	(vector) String vector of the plots to generate (default generates all)
timevar	(string) String indicating which of the variables in model list indicates time.
title	(string) Title of plot collection
ncol	(string) Number of columns to include in plot

Details

It returns a grid object

Author(s)

Rodrigo Zepeda-Tello [e-mail]

Dalia Camacho-García-Formentí [e-mail]

Examples

#EXAMPLE 1A: INDIVIDUAL MODELLING FOR ADULTS
#--------------------------------------------------------
mymodel <- adult_weight(80, 1.8, 40, "female", rep(-100, 365))

#You can plot all the variables
model_plot(mymodel)

#Or only one of them
model_plot(mymodel, "Body_Weight", ncol = 1)

#EXAMPLE 1C: INDIVIDUAL MODELLING FOR CHILDREN
#--------------------------------------------------------
mymodel <- child_weight(5, "female", 12, 4)

#You can plot all the variables
model_plot(mymodel)

#Or only one of them and specify by age
model_plot(mymodel, "Body_Weight", ncol = 1)

#EXAMPLE 2A: DATASET MODELLING FOR ADULTS
#--------------------------------------------------------
#Antropometric data
models <- c(45, 67, 58, 92, 81)
heights <- c(1.30, 1.73, 1.77, 1.92, 1.73)
ages    <- c(45, 23, 66, 44, 23)
sexes   <- c("male", "female", "female", "male", "male") 

#Matrix of energy consumption reduction: 
EIchange <- rbind(rep(-100, 365), rep(-200, 365), rep(-200, 365), 
                  rep(-123, 365), rep(-50, 365))

#Returns a model change matrix and other matrices
model_model <- adult_weight(models, heights, ages, sexes, 
                             EIchange)
                             
#Create all plots                            
model_plot(model_model)

#Plot Body Mass Index
model_plot(model_model, "Body_Mass_Index")

#EXAMPLE 2C: DATASET MODELLING FOR CHILDREN
#--------------------------------------------------------
#Antropometric data
FatFree <- c(32, 17.2, 18.8, 20, 24.1)
Fat     <- c(4.30, 2.02, 3.07, 1.12, 2.93)
ages    <- c(10, 6.2, 5.4, 4, 4.1)
sexes   <- c("male", "female", "female", "male", "male") 

#Returns a model change matrix and other matrices
model_model <- child_weight(ages, sexes, Fat, FatFree)
                             
#Create all plots                            
model_plot(model_model)

#Plot Body Mass Index
model_plot(model_model, "Fat_Mass")
                            

INSP-RH/bw documentation built on July 3, 2023, 6:50 p.m.