tests/testthat/test-plot_pred.R

context("Plot")

test_that("plot it works", {
  out <- plot_pred( 
                pars = c(1,1,1,1), 
                Tlevel1 = rnorm(10), 
                Tlevel2 = rnorm(10)) 
  expect_equal(TRUE, out$xpd)
})
ibartomeus/traitmatch documentation built on May 18, 2019, 1:29 a.m.