library(mosaicData)
datasets <- list("Galton" = Galton, "KidsFeet" = KidsFeet, "Heightweight" = Heightweight,
"SwimRecords" = SwimRecords, "TenMileRace" = TenMileRace)
a1=TRUE;a2=TRUE;a3=TRUE;a4=TRUE;a5=TRUE;a6=TRUE;a7=TRUE;a8=TRUE;a9=TRUE;a10=TRUE
a11=TRUE;a12=TRUE;a13=TRUE;a14=TRUE;a15=TRUE;a16=TRUE;a17=TRUE;a18=TRUE;a19=TRUE;a20=TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.