typo in table

fixed typo mentioned in email by Jahn Davik

Author: SchmidtPaul

heterogeneous_error_variance.Rmd

@@ -69,8 +69,8 @@ The different variance structures in the error term of the 5 models are summaris
 MODTAB <- tibble(Model = paste0("mod", 1:5) %>% cell_spec(bold=T),
        Block    = "Identity",
        Genotype = "Identity",
-       Date     = c("Identity", "Identity", "Diagonal", "Diagonal", "Diag-"),
-       Density  = c("Identity", "Diagonal", "Identity", "Diagonal", "onal"),
+       Date     = c("Identity", "Diagonal", "Identity", "Diagonal", "Diag-"),
+       Density  = c("Identity", "Identity", "Diagonal", "Diagonal", "onal"),
        parameters = c(1,2,4,5,8),
        estimates  = c(1,2,4,8,8)) %>% 
   mutate(Date    = ifelse(Date    %in% c("Diagonal", "Diag-"), cell_spec(Date,    bold=T), Date),
@@ -860,4 +860,4 @@ plyr::join_all(list(AIC.nlme %>% dplyr::select(Modnames, AICc) %>% rename(nlme=A
 # More on this
 [Similar chapter on Michael Clark's Website "Mixed Models with R"](https://m-clark.github.io/mixed-models-with-R/extensions.html#heterogeneous-variance){target="_blank"}
 
-["SAS and R" blog post](http://sas-and-r.blogspot.com/2014/02/example-20143-allow-different-variances.html?m=1){target="_blank"}
+["SAS and R" blog post](http://sas-and-r.blogspot.com/2014/02/example-20143-allow-different-variances.html?m=1){target="_blank"}