Nothing
OneTrueLove <- read.file("OneTrueLove.csv")
head(OneTrueLove)
tally(Response~Gender, format = "count", margins = TRUE, data = OneTrueLove)
prop(Response~Gender, data = OneTrueLove)
diff(prop(Response~Gender, data = OneTrueLove))
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.