fixed table to have survey year on LHS

MTUS-W6-adult-survey-data-processing.Rmd

@@ -117,8 +117,8 @@ We have loaded `r format(nrow(MTUSW6survey_DT), big.mark=",",scientific=FALSE)`
 
 ```{r basicStats}
 kable(caption = "Number of diaries per year",
-      table(droplevels(MTUSW6survey_DT$countrya), # removes unused countries
-            MTUSW6survey_DT$survey)
+      table(MTUSW6survey_DT$survey, droplevels(MTUSW6survey_DT$countrya) # removes unused countries
+            )
       )
 ```