library(knitr) opts_chunk$set(echo=FALSE, message=FALSE, warning=FALSE, fig.width=4, fig.height=4, dpi=144, cache=TRUE) read_chunk("R/beliefs.R")
questions %>% filter(question_name %in% question_names) %>% select(question_name, question_text) %>% kable()
by_language_plot("cr1")
functional_v_imperative_plot
by_language_plot("cp1")
by_language_plot("rec1")
by_language_plot("cfo1", y = 1.8)
by_language_plot("cfo2", y = 1.8)
by_language_plot("inter1", y = 4)
by_language_plot("inter2", y = 4)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.