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 Nov. 22, 2017, 10:06 a.m.