inst/unitTests/test_rowMAD.R

test_rowMAD <- function(){
  x <- matrix(rnorm(100), 10, 10)
  result1 <- apply(x, 1, mad)
  result2 <- rowMAD(x)
  checkIdentical(result1, result2)
}
rscharpf/VanillaICE documentation built on May 15, 2019, 5:51 p.m.