# NOT RUN {
f <- function(y, X, beta) { y - X %*% beta }
auto_diff(
f, wrt = "beta",
at = list(beta = c(5,6), X = matrix(1:4, 2, 2), y = c(2,3))
)
g <- function(X, Y) { X %*% Y }
X <- randn(2, 2)
Y <- randn(2, 2)
auto_diff(g, at = list(X = X, Y = Y))
# }
Run the code above in your browser using DataLab