tests/testthat/test-plotLong.R

context("gppm-plotlong")
test_that("simple", {
  thePlot <- plot(demoLGCM)
  expect_identical(class(thePlot),c('gg','ggplot'))
})

test_that("select all arguments", {
  thePlot <- plot(demoLGCM,c(1,2,3),'t','ID','y')
  expect_identical(class(thePlot),c('gg','ggplot'))
})

Try the gppm package in your browser

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

gppm documentation built on May 2, 2019, 6:50 a.m.