bw (version 1.0.0)

model_plot: 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

Examples

# NOT RUN {
#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
#--------------------------------------------------------
# }
# NOT RUN {
#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")
# }
# NOT RUN {
# }
# NOT RUN {
#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")
# }