Nothing
x <- c(3, 4, 5, 8)
mean(x)
var(x)
u1 <- .5 * c(1,1,1,1)
u2 <- 1 / sqrt(2) * c(1,-1,0,0)
u3 <- 1 / sqrt(6) * c(1,1,-2,0)
u4 <- 1 / sqrt(12) * c(1,1,1,-3)
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.