data(rasiel)
data(jaquith)
require(grid)
old.promot <- devAskNewPage(ask = TRUE)
waterfallchart(value~label, data=rasiel, groups=subtotal)
waterfallchart(factor~score, data=jaquith)
devAskNewPage(old.prompt)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.