Fix typo in mosaicplot demo
Change-Id: I74e2b06d85d2a4da810393b1d626895ba036e895
diff --git a/demo/mosaicplot.R b/demo/mosaicplot.R
index c8bf16b..d8ea3b7 100644
--- a/demo/mosaicplot.R
+++ b/demo/mosaicplot.R
@@ -20,7 +20,7 @@
{ . ->> queryResult } %>%
{ xtabs(totalResults ~ condition + alternative, .)} %>%
vcd::mosaic(shade = TRUE) # , labeling = labeling_border(rot_labels = c(45,0,0,0), just_labels = c("left", "center", "center", "right")))
- df
+ queryResult
}
queryResult <- mosaicplot(c("[marmot/m=mood:subj]", "[marmot/m=mood:ind]"), c("textDomain=Wirtschaft", "textDomain=Kultur", "textDomain=Sport"))
#mosaicplot(c("Asylbewerber", "Asylwerber"), c("pubPlaceKey=DE", "pubPlaceKey=AT"))