testData = data.frame(
V1 = sample(c(NA,1), 100, replace=T, c(0.1,0.9)),
V2 = sample(c(NA,1), 100, replace=T, c(0.2,0.8)),
V3 = sample(c(NA,1), 100, replace=T, c(0.3,0.7)),
V4 = sample(c(NA,1), 100, replace=T, c(0.5,0.5))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.