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

Try the mets package in your browser

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

mets documentation built on May 2, 2019, 4:43 p.m.