inst/tinytest/test-deriv.R

library(fntl)
library(numDeriv)

Rcpp::sourceCpp("cpp/test-deriv.cpp")

x0 = 0.5
tol = 0.001

f = function(x) { sin(x) }
out0 = grad(f, x0)

out1 = sine_deriv(x0, 0L)
expect_equal(out1$value, out0, tol)
expect_equal(out1$status, 0)
expect_equal(out1$err, 0, tol)

Try the fntl package in your browser

Any scripts or data that you put into this service are public.

fntl documentation built on April 4, 2025, 1:53 a.m.