Nothing
library(RcppFastAD)
X <- c(0.5, 0.6)
S <- matrix(c(2, 3, 3, 6), 2, 2)
res <- quadratic_expression(X, S)
expect_equal(res[["value"]], 4.46)
expect_equal(res[["gradient"]], c(5.6,10.2))
X <- c(0.0, 0.0)
res <- quadratic_expression(X, S)
expect_equal(res[["value"]], 0.0)
expect_equal(res[["gradient"]], c(0.0, 0.0))
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.