Nothing
petBrainGlioma <- data.frame(grade=factor(rep(1:2, each=5)),
FDG=c(6.41, 3.54, 4.72, 5.48, 3.42,
14.6, 6.58, 3.84, 5.12, 5.48),
ACE=c(1.84, 1.07, 1.82, 2.65, 1.87,
2.78, 1.98, 2.69, 2.63, 3.05))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.