Nothing
id <- c(1,2,3,4,5,6)
age <- c(30,32,28,39,20,25)
edu <- c(0,0,0,0,0,0)
classname <- c("poor","middle")
classrep <- rep(classname,c(3,3))
class <- factor(classrep , level=classname)
IndianMother <- data.frame(id,age,edu,class=classrep)
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.