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)
}

Try the VanillaICE package in your browser

Any scripts or data that you put into this service are public.

VanillaICE documentation built on Nov. 8, 2020, 7:33 p.m.