Cleaning

this is who I clean data.

anes <- read_dta("C:/anes.dta")

library(dplyr)
last <- filter(anes, VCF0004 == 2012)

black <- filter(anes, VCF0105a == 2)
hisp <- filter(anes, VCF0105a == 5)

blackhisp <- rbind(black, hisp)

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.