tests/testthat/test_myapply.r

context("myapply")
test_that("is equivalent to apply for matrix row summation",{
  
   fred <- matrix(1:6, nrow = 3, ncol = 2)
   
  expect_equivalent(myapply (fred, 2, sum), apply(fred,2,sum))
})
merc534/STAT3701-HW3 documentation built on May 25, 2019, 10:30 p.m.