#' Socioeconomic status and reduced-fee school lunches
#'
#' Examining the relationship between socioeconomic status measured as the
#' percentage of children in a neighborhood receiving reduced-fee lunches at
#' school (lunch) and the percentage of bike riders in the neighborhood wearing
#' helmets (helmet).
#'
#'
#' @name helmet
#' @docType data
#' @format A data frame with 12 observations representing neighborhoods on the
#' following 2 variables.
#' \describe{
#' \item{lunch}{Percent of students receiving reduced-fee school lunches.}
#' \item{helmet}{Percent of bike riders wearing helmets.}
#' }
#' @keywords datasets
#' @examples
#'
#' library(ggplot2)
#'
#' ggplot(helmet, aes(x = lunch, y = helmet)) +
#' geom_point()
"helmet"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.