tests/testthat.R

In faridcher/futils: Farid utility functions

library(testthat)
library(futils)

context("Arithmetic")
a <- matrix(1:4,2,2)
test_that("Math Works",{
  expect_equal(1+1,2)
  expect_equal(1+1,3)
  expect_equal(1+4,6)
  expect_equal(1+4,5)
  expect_equal(featureNormalize(a)$X_norm,scale(a)[,])
  })
#ctrl + shift + T