tests/testthat/test_claytonoakes.R

context("Clayton-Oakes")

test_that("Clayton-Oakes I", {  
  ## expect_equivalent(coef(e)[[1]][1:2,1],coef(lm(y~x,d)))
  ##  expect_equivalent(coef(e)[[2]][1:2,1],coef(lm(y~x,d)))
})
kkholst/mets documentation built on Sept. 16, 2024, 9:30 p.m.