testthat::context("test plot Data")
DLMextra(TRUE)
library(DLMextra)
Dat <- avail('Data')
Dat <- Dat[!Dat %in% c("SimulatedData", "Simulation_1")]
dev.new()
for (dat in Dat) {
testthat::test_that(paste("plot works with ", dat), {
datobj <- get(dat)
MP <- Can(datobj)
mptype <- MPtype(MP)
outputMPs <- mptype[mptype[,2] == "Output",1]
datobj <- TAC(datobj, outputMPs)
testthat::expect_error(plot(datobj), NA)
})
}
for (dat in Dat) {
testthat::test_that(paste("`summary` works with ", dat), {
datobj <- get(dat)
testthat::expect_error(summary(datobj, wait=FALSE), NA)
})
}
if(!is.null(dev.list())) dev.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.