tests/testthat/test-plot_if_edit.R

library(lavaan)

test_that("if_edit and its derivatives work", {
  fit <- sem("mpg ~ cyl\nmpg ~ am", data = mtcars, meanstructure = TRUE)

  p <- prepare_graph(model = fit)

  tmp <- hide_sig(p)
  expect_true(all(!tmp$edges$show))
  expect_error(plot(tmp), NA)

  tmp <- hide_fixed(p)
  expect_equivalent(tmp$edges$show, p$edges$show)
  expect_error(plot(tmp), NA)

  tmp <- hide_sig(p, element = c("nodes", "edges"))
  expect_true(all(!tmp$edges$show))
  expect_equivalent(tmp$nodes$show, c(TRUE, TRUE, FALSE))
  expect_message(plot(tmp))
  expect_error(plot(tmp), NA)

  tmp <- hide_fixed(p, element = c("nodes", "edges"))
  expect_equivalent(tmp$edges$show, !c(FALSE, FALSE, FALSE, TRUE, TRUE, TRUE))
  expect_equivalent(tmp$nodes$show, c(FALSE, FALSE, TRUE))
  expect_message(plot(tmp))
  expect_error(plot(tmp), NA)

  tmp <- hide_sig(tmp, element = c("nodes", "edges"))
  expect_true(all(!tmp$edges$show))
  expect_true(all(!tmp$nodes$show))
  expect_error(plot(tmp))

  tmp <- show_sig(tmp, element = c("nodes", "edges"))
  expect_equivalent(tmp$edges$show, c(TRUE, TRUE, TRUE, FALSE, FALSE, FALSE))
  expect_equivalent(tmp$nodes$show, c(FALSE, FALSE, TRUE))
  expect_error(plot(tmp), NA)
  p$edges$confint_std[4:6] <- "3"
  p$nodes$confint_std[1:2] <- "3"
  tmp <- if_edit(p, {grepl("3", confint_std)}, {show = FALSE},  element = c("edges", "nodes"))
  expect_equivalent(tmp$edges$show, c(TRUE, TRUE, FALSE, FALSE, FALSE, FALSE))
  expect_equivalent(tmp$nodes$show, c(FALSE, FALSE, TRUE))
  expect_error(plot(tmp), NA)

  # tmp <- p
  # tmp$edges$linetype <- c(1,1,1,2,2,2)
  # tmp<- linetype_sig(p, 2)
  # plot(tmp)
  #
  # plot(colour_fixed(p, "red"))
#
# tmp$edges$pval[4] <- "0.5"
# plot(linetype_non_sig(tmp, 3))
#   tmp$nodes$pval[3] <- "0.5"
#   plot(linetype_non_sig(tmp, 2, elements = c("nodes", "edges")))
  # tmp$edges
  #
  # plot(tmp)

})

Try the tidySEM package in your browser

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

tidySEM documentation built on June 22, 2024, 10:57 a.m.