# library(WWRData)
# Aus <- data.frame(Oz)
# Aus <- within(Aus, {
# group <- substring(10000 + cumsum(is.na(x)), 2)
# })
# Aus <- na.omit(Aus)
# save(Aus, file = "data/Aus.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.