tests/testthat/test_plot.R

In desmarais-lab/NetworkInference: Inferring Latent Diffusion Networks

library(NetworkInference)

context("Test if plotting works.")

data(cascades)

test_that("Plotting function runs.", {
    p <- plot(cascades, selection = names(cascades$cascade_nodes)[1:3])
    p <- plot(cascades, label_nodes = FALSE)
    res <- netinf(cascades, n_edges = 6, params = 1, quiet = TRUE)
    #plot(res, "network")
    p <- plot(res, "improvement")
    expect_warning(plot(cascades))
})