require("compiler")
testfun <- function(x)
{
browser()
x2 <- x^2
return(x2)
}
testfunc <- cmpfun(testfun)
## testfun(2)
testfunc(2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.