markdown

---
title: "test"
author: "Tho Duy Nguyen"
date: "24 April 2016"
output: html_document
---

## R Markdown

```{r cars}
library(AER)
library(ggplot2)
library(ggthemes)
data("CPS1988",package="AER")
nghiyeu<-CPS1988[sample(nrow(CPS1988),600), ]
attach(nghiyeu)
ggplot(nghiyeu,aes(x=experience,y=log(wage),colour=region))+
    geom_point(alpha=0.4)+
    stat_smooth(method="lm",formula=y~x+I(x^2),size=1,se=FALSE)+
    theme_economist() 
```