Nothing
t.star <- qt(.975, df = 49); t.star
# lower limit
x.bar - t.star * se
# upper limit
x.bar + t.star * se
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.