library(spsurvey)
library(tools)
setwd('C:/Users/mweber/GitProjects/spsurvey/vignettes')
Sweave("Risk_Analysis.Rnw")
texi2pdf("Risk_Analysis.tex")
Stangle("Finite_Design.Rnw", annotate=FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.