Nothing
test.hypotenuse.3_4.returns_5 <- function()
{
expected <- 5
actual <- learningr::hypotenuse(3, 4)
checkEqualsNumeric(expected, actual)
}
test.hypotenuse.no_inputs.fails <- function()
{
checkException(learningr::hypotenuse())
}
test.hypotenuse.very_small_inputs.returns_small_positive <- function()
{
expected <- sqrt(2) * 1e-300
actual <- learningr::hypotenuse(1e-300, 1e-300)
checkEqualsNumeric(expected, actual, tolerance = 1e-305)
}
test.hypotenuse.very_large_inputs.returns_large_finite <- function()
{
expected <- sqrt(2) * 1e300
actual <- learningr::hypotenuse(1e300, 1e300)
checkEqualsNumeric(expected, actual)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.