Fix visualisation of maxdr in Table 1.3.

Need to multiply by 1e5 so it displays the deat rate per 100k inhabs.

src/Covid19MortalityEurope.Rmd

@@ -1249,18 +1249,13 @@ cap <- paste("Median values of indicators used to define the country",
 
 cap.col1 <- paste(cap, labcol1)
 
-tab <- as.data.frame(zd[, 1:5])
-synth <- do.call(
-    "rbind",
-    by(tab,
-            list(Class = zd$Class),
-            FUN = function(x)
-                apply(x, 2, median)))
-
-res <- as.data.frame(synth[order(synth[,2]),])
-
-kable(
-    data.frame(Category = rownames(res), res),
+zd %>% 
+  select(Category = Class, 1:5) %>% 
+  group_by(Category) %>% 
+  summarise_if(is.numeric, median) %>% 
+  arrange(maxdr) %>% 
+  mutate(maxdr = 1e5 * maxdr) %>%   # max death rate per 100h inhabs.
+  kable(
     format = "pandoc",
     booktabs = T,
     row.names = F,