R Under development (unstable) (2026-07-17 r90265 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # Audit item 3: plot(<case-drop bootnet>, plot = "interval") crashed with
> # "Column `nPeople` doesn't exist" because R/plotMethod.R referenced a column
> # never produced by summary.bootnet / statTable (actual name is nPerson).
> # The x-axis break limits were also based on the number of nodes rather than
> # the number of persons. See R/plotMethod.R (person-type "interval" branches).
> 
> library(bootnet)
Loading required package: ggplot2
This is bootnet 1.9.1
For questions and issues, please see github.com/SachaEpskamp/bootnet.
> 
> # Avoid creating Rplots.pdf when ggplot_build() / printing touches a device.
> pdf(NULL)
> 
> set.seed(1)
> 
> # 5-variable Gaussian data
> p <- 5
> n <- 200
> data <- as.data.frame(matrix(rnorm(n * p), n, p))
> colnames(data) <- paste0("V", seq_len(p))
> 
> net <- estimateNetwork(data, default = "pcor")
Estimating Network. Using package::function:
  - qgraph::qgraph(..., graph = 'pcor') for network computation
> 
> boot <- suppressMessages(
+   bootnet(net, nBoots = 10, type = "person", caseN = 3, verbose = FALSE)
+ )
> 
> ## --- plot = "interval" (per-type) ---
> g1 <- plot(boot, plot = "interval")
> stopifnot(inherits(g1, "ggplot"))
> invisible(ggplot2::ggplot_build(g1))
> 
> ## --- plot = "interval", perNode = TRUE ---
> g2 <- plot(boot, plot = "interval", perNode = TRUE)
> stopifnot(inherits(g2, "ggplot"))
> invisible(ggplot2::ggplot_build(g2))
> 
> dev.off()
null device 
          1 
> 
> cat("test-item03-interval-plot.R passed\n")
test-item03-interval-plot.R passed
> 
> proc.time()
   user  system elapsed 
   5.87    1.00    6.81