---
title: "Compare Ideal Weight Formulae"
author: "Jack O. Wasey"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Compare Ideal Weight Formulae}
  %\VignetteEngine{knitr::rmarkdown}
  \usepackage[utf8]{inputenc}
---

Compare ideal weight formulae over range of adult heights
=========================================================

```{r, echo=FALSE, fig.width=7, fig.height=7}
library(physiology)
library(ggplot2)
hts <- seq(from = 1.5, to = 2.0, by = 0.01)
male <- rep(T, times = length(hts))
suppressWarnings({
  ideal_weights <- data.frame(
    "Height" = hts,
    Devine = ideal_weight_Devine(height_m = hts, male = male),
    Broca = ideal_weight_Broca(height_m = hts, male = male),
    Robinson = ideal_weight_Robinson(height_m = hts, male = male),
    Miller = ideal_weight_Miller(height_m = hts, male = male),
    Lemmens = ideal_weight_Lemmens(height_m = hts)
  )
})
melt <- tidyr::gather(ideal_weights, key = "variable", value = "value", -Height)
p <- ggplot(melt, aes(x = Height, y = value, group = variable)) +
  geom_line(aes(colour = variable)) +
  #  scale_x_continuous(breaks = seq(0.5, 3, 0.5), limits = c(0.5, 3)) +
  #scale_y_continuous(breaks = seq(0, 5, 1), limits = c(0, 5)) +
  labs(x = "height, m", y = "ideal weight, kg") +
  #  ggtitle("Comparison of ideal weight formulae") +
  theme_bw() +
  theme(legend.position = c(0.25, 0.8),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        plot.title = element_text(size = rel(1.1), face = "bold"))
p
```
