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.

> # Fast smoke test: bootnet runs end-to-end with a trivial pcor network,
> # summary() returns a data frame, and plot() returns a buildable ggplot.
> 
> library(bootnet)
Loading required package: ggplot2
This is bootnet 1.9.1
For questions and issues, please see github.com/SachaEpskamp/bootnet.
> 
> # Small seeded Gaussian dataset: 5 variables, 100 rows
> Sigma <- 0.5 ^ abs(outer(1:5, 1:5, "-"))
> set.seed(20260716)
> smokeData <- as.data.frame(mvtnorm::rmvnorm(100, sigma = Sigma))
> colnames(smokeData) <- paste0("V", 1:5)
> 
> # Estimate:
> net <- estimateNetwork(smokeData, default = "pcor", verbose = FALSE)
> stopifnot(is.matrix(net$graph), identical(dim(net$graph), c(5L, 5L)))
> cat("OK: estimateNetwork (pcor) runs\n")
OK: estimateNetwork (pcor) runs
> 
> # Bootstrap:
> set.seed(1)
> boots <- suppressMessages(
+   bootnet(net, nBoots = 3, type = "nonparametric", verbose = FALSE))
> stopifnot(inherits(boots, "bootnet"),
+           is.data.frame(as.data.frame(boots$bootTable)),
+           nrow(boots$bootTable) > 0)
> cat("OK: bootnet (nonparametric, nBoots = 3) runs\n")
OK: bootnet (nonparametric, nBoots = 3) runs
> 
> # summary() returns a data frame:
> smry <- summary(boots)
> stopifnot(is.data.frame(as.data.frame(smry)), nrow(smry) > 0)
> cat("OK: summary() returns a data frame\n")
OK: summary() returns a data frame
> 
> # plot() returns a ggplot object that builds without error:
> plt <- plot(boots, order = "sample")
> stopifnot(inherits(plt, "ggplot"))
> built <- ggplot2::ggplot_build(plt)
> stopifnot(!is.null(built$data), length(built$data) > 0)
> cat("OK: plot() returns a buildable ggplot\n")
OK: plot() returns a buildable ggplot
> 
> cat("Smoke test passed.\n")
Smoke test passed.
> 
> proc.time()
   user  system elapsed 
   4.96    1.09    6.01