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)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.