tests/testthat/test_std.R

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)
})
zhaalex/statistic_function_package documentation built on May 30, 2019, 12:48 p.m.