load(file = "data/2-join.RData")
load(file = "data/3-desc.RData")
load(file = "data/3-model.RData")
if (require(ggplot2)) {
p = ggplot2::qplot(wt, mpg, color = factor(am), data = cyl.tidy)
} else p = "this would have been a plot"
save(p, file = "data/4-plot.RData")
rm(list=ls())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.