R Under development (unstable) (2024-02-18 r85939 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 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.

> #  File tests/onlymcmc.R in package latentnet, part of the
> #  Statnet suite of packages for network analysis, https://statnet.org .
> #
> #  This software is distributed under the GPL-3 license.  It is free,
> #  open source, and has the attribution requirements (GPL Section 7) at
> #  https://statnet.org/attribution .
> #
> #  Copyright 2003-2024 Statnet Commons
> ################################################################################
> library(statnet.common)

Attaching package: 'statnet.common'

The following objects are masked from 'package:base':

    attr, order

> opttest({  # only run if ENABLE_MPI_TESTS flag is set, to avoid on windows where MPI is hard to get working. 
+ 
+ library(latentnet)
+ 
+ # Also test parallel code.
+ data(sampson)
+ onlymcmc <- ergmm(samplike ~ euclidean(d=2, G=3)+rreceiver,tofit="mcmc",control=control.ergmm(burnin=100,interval=1,sample.size=1000,pilot.runs=0,threads=2))
+ 
+ mcmc.diagnostics(onlymcmc)
+ 
+ # Should give an informative error message.
+ print(try(plot(onlymcmc)))
+ 
+ plot(simulate(onlymcmc))
+ plot(with(onlymcmc,simulate(model,par=sample[[1]],prior=prior)))
+ 
+ heatmap(predict(onlymcmc),Rowv=NA,Colv=NA)
+ 
+ }, "parallel_MPI", testvar="ENABLE_MPI_TESTS")
parallel_MPI test(s) skipped. Set ENABLE_MPI_TESTS environment variable to run.
> 
> proc.time()
   user  system elapsed 
   0.25    0.09    0.32