tests/testthat/test-model.R

# test the model
context('model lm')

test_that('model lm', {
  ordonne<-c(1:6)
  abscisse<-c(4:9)
  model<-lm(ordonne~abscisse)
  expect_is(model, "lm" )
})

Try the InterfaceqPCR package in your browser

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

InterfaceqPCR documentation built on May 2, 2019, 12:10 p.m.