context("test to two dim")
test_that("work two dim function", {
target_func1 <- function(x) {x^3 + 3*x^2 + 8*x - 10}
res <- Newton_Raphson(func = target_func1, x0 = 10)
expect_equal(res$root, 0.877134, tolerance = 1e-3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.