inst/doc/gunsales.R

In gunsales: Statistical Analysis of Monthly Background Checks of Gun Purchases

## ---- setup, include=FALSE-----------------------------------------------
library(gunsales)

## ---- initialDataFake, eval=FALSE----------------------------------------
#  gunsales <- analysis()

## ---- initialData, fig.width=7, echo=FALSE-------------------------------
if (gunsales:::.goodOS()) gunsales <- analysis() else cat("Unsupported platform -- no plots below.")

## ---- basePlotsFake, eval=FALSE------------------------------------------
#  plot_gunsales(gunsales)

## ---- basePlots, fig.width=7, echo=FALSE---------------------------------
if (gunsales:::.goodOS()) plot_gunsales(gunsales)

## ---- ggPlotsFake, eval=FALSE--------------------------------------------
#  ggplot_gunsales(gunsales)

## ---- ggPlots, fig.width=7, echo=FALSE-----------------------------------
if (gunsales:::.goodOS()) ggplot_gunsales(gunsales)