tests/testthat/test-rectangulo.R
In serlomudata/SIQ025-Integracion: Integracion numerica
test_that("rectangulo works", {
expect_equal(regla_rectangulo(0,1,function(x){return(x)}),0)
expect_equal(regla_rectangulo(-1,1,function(x){return(x^2)}),2)
expect_equal(regla_rectangulo(-2,0,function(x){return(x+2)}),0)
})
serlomudata/SIQ025-Integracion documentation built on Dec. 23, 2021, 12:20 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("rectangulo works", {
expect_equal(regla_rectangulo(0,1,function(x){return(x)}),0)
expect_equal(regla_rectangulo(-1,1,function(x){return(x^2)}),2)
expect_equal(regla_rectangulo(-2,0,function(x){return(x+2)}),0)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.