# this is a test
#x <- c(1, 2, 3)
#y <- c(4, 5, 9)
testFun <- function(x,y) {
lm(y ~ x)
yy <- y + rnorm(3) + 2
result <- lm(yy ~ x)
# comment
result
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.