BIOS 330 Assignment Zero

```{r setup, echo=FALSE}
require(Hmisc)
knitrSet(lang='markdown')
```

# Descriptive Statistics
```{r desc, results='asis'}
getHdata(support)  # download from biostat.mc.vanderbilt.edu/DataSets
html(describe(support))
```

# Relationships
```{r relate}
with(support, table(dzclass, dzgroup))
with(support, plsmo(age, meanbp, group=dzclass))
```

```{r box, w=6, cap="Extended box plots for mean arterial blood pressure and serum creatinine"}
# Floating figure environment, allowing caption and cross-referencing
bpplotM(meanbp + crea ~ dzgroup, data=support, cex.strip=.75)
```