library(R.utils)
library(tm)
library(dplyr)
library(mlr)
devtools::load_all("R/")
data_dir = "data/"
bike = get.bike.data(data_dir)
save(bike, file = sprintf('%sbike.RData', data_dir))
write.csv(bike,file = sprintf('%sbike.csv', data_dir), row.names = FALSE)
cervical = get.cervical.data(data_dir)
save(cervical, file = sprintf('%scervical.RData', data_dir))
write.csv(cervical, file = sprintf("%scervical.csv", data_dir), row.names = FALSE)
ycomments = get.ycomments.data(data_dir)
save(ycomments, file = sprintf('%sycomments.RData', data_dir))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.