Nothing
f <- function(x, k=0) {x^k * x/2 } # define pdf
integrate(f, lower = 0, upper = 2) # check it is a pdf
integrate(f, k=1, lower = 0, upper = 2) # expected value
integrate(f, k=2, lower = 0, upper = 2) # E(X^2)
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.