## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----eval = FALSE-------------------------------------------------------------
# library(facetsviz)
# 
# facets <- read_facets("peerAssessment.out")
# names(facets$measurement_reports)
# plot_wright_map(facets)

## ----eval = FALSE-------------------------------------------------------------
# render_plots(facets, output_dir = tempdir(), formats = c("png", "tiff"))