tests/testthat/test_average_age.R
In yz4/WilliamsFaculty: Average Age of Williams College Faculty
context("Test for the function 'average_age'")
load("test_average_age.RData")
test_that("average_age returns correct value", {
result.1 <- WilliamsFaculty:::average_age()
expect_equal(result.1, truth.1, label = "Failed the test to calculate the correct mean")
})
yz4/WilliamsFaculty documentation built on May 4, 2019, 8:47 p.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.
context("Test for the function 'average_age'")
load("test_average_age.RData")
test_that("average_age returns correct value", {
result.1 <- WilliamsFaculty:::average_age()
expect_equal(result.1, truth.1, label = "Failed the test to calculate the correct mean")
})
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.