library(statisticsFuncs)
context("standardDev")
test <- c(10,2)
test1 <- c(0)
standardDev(test)
test_that("standard deviation of a data set", {
expect_equal(standardDev(test), 5.66)
expect_equal(standardDev(test1), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.