{"type":"title","title":"title","code":"Reproducible Research with Table Data"}
{"type":"author","title":"author","code":"Keon-Woong Moon"}
{"type":"data","title":"sampleData2","code":"sampleData2"}
{"type":"mytable","title":"mytable","code":"mytable(sex~.,data=acs)"}
{"type":"data","title":"head(iris)","code":"head(iris)"}
{"type":"plot","title":"plot","code":"plot(iris)"}
{"type":"ggplot","title":"ggplot","code":"ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species))+geom_point()"}
{"type":"Rcode","title":"Regression Analysis","code":"fit=lm(mpg~wt*hp,data=mtcars)\nsummary(fit)"}
{"type":"Rcode","title":"Summary","code":"summary(mtcars)"}
{"type":"text","title":"Text","code":"This document is an example of reproducible research using rrtable package. \nThe home page of this project is github.com/cardiomoon/rrtable."}
{"type":"table","title":"table","code":"df2flextable(head(mtcars))"}
{"type":"2ggplots","title":"Two ggplots","code":"ggplot(iris,aes(Sepal.Length,Sepal.Width))+geom_point()\nggplot(iris,aes(Sepal.Length,Sepal.Width,colour=Species)) + geom_point() + guides(colour=FALSE)"}
{"type":"2plots","title":"Two plots","code":"hist(rnorm(1000))\nplot(1:10)"}