Add additionl calculations.

analysis.Rmd

@@ -84,7 +84,7 @@ dataset <- dataset %>%
 To make the dataset more relevant and manageable, the UR20 field was coded to use a more meaningful factor name. Additionally,the record with value of NA discovered previously is removed. The dataset now contains ```r nrow(dataset)``` observations and ```r ncol(dataset)``` variables.
 
 ## Exploratory
-```{r, fig.align = "center"}
+```{r, message=FALSE, fig.align = "center"}
 library(ggplot2)
 library(scales)
 ggplot(dataset, aes(y = factor(UR20))) +