#' ---
#' title: "Getting Help!"
#' reading:
#' - How to [write a reproducible example](http://adv-r.had.co.nz/Reproducibility.html)
#' presentation:
#' - day_12_help.html
#' tasks:
#' - Learn how to read R help files effectively
#' - Learn how to search for help
#' - Learn how to create a Minimum Working Example (MWE)
#' ---
#'
#'
#' `r presframe()`
#'
#' ## Download
#'
#' `r output_table()`
#'
#' ## Libraries
#'
## ----message=F,warning=FALSE---------------------------------------------
library(tidyverse)
library(reprex)
#'
#'
## ------------------------------------------------------------------------
mpg%>%
ggplot(aes(x=drv, y=trans))%>%
geom_point(aes(color=class))%>%
geom_smooth()
data=data.frame(x=c(1,2),y=c(1,2),z=c(1.5,1.5))
ggplot(data,aes(x=x,y=y,color=z)) +
geom_point()
#'
#'
#'