dat.english2016.1<- read.csv("data-raw/dat.english2016.1.csv", stringsAsFactors = FALSE)
names(dat.english2016.1)[17]<-"yi"
names(dat.english2016.1)[18]<-"vi"
dat.english2016.1<-dat.english2016.1[,-c(12, 13)]
save(dat.english2016.1, file="data/dat.english2016.1.rda", ascii=FALSE)
dat.english2016.2<- read.csv("data-raw/dat.english2016.2.csv", stringsAsFactors = FALSE)
dat.english2016.2<-dat.english2016.2[,-c(12, 14)]
save(dat.english2016.2, file="data/dat.english2016.2.rda", ascii=FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.