inst/unitTests/test_pick_lambda.R

test_pick_lambda <- function() {

  lambda <- matrix(1:20, nrow=10, byrow=FALSE)
  ret    <- iCARE:::pick_lambda(5, lambda)

  checkEqualsNumeric(ret, 15, tolerance=1.0e-8)
  
}

Try the iCARE package in your browser

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

iCARE documentation built on Nov. 8, 2020, 5:25 p.m.