Back to Multiple platform build/check report for BioC 3.13
ABCDEFGHIJKLMNOPQRS[T]UVWXYZ

This page was generated on 2021-10-15 15:05:54 -0400 (Fri, 15 Oct 2021).

CHECK results for ternarynet on nebbiolo1

To the developers/maintainers of the ternarynet package:
- Please allow up to 24 hours (and sometimes 48 hours) for your latest push to git@git.bioconductor.org:packages/ternarynet.git to
reflect on this report. See How and When does the builder pull? When will my changes propagate? here for more information.
- Make sure to use the following settings in order to reproduce any error or warning you see on this page.

raw results

Package 1906/2041HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
ternarynet 1.36.0  (landing page)
McCall N. Matthew
Snapshot Date: 2021-10-14 04:50:12 -0400 (Thu, 14 Oct 2021)
git_url: https://git.bioconductor.org/packages/ternarynet
git_branch: RELEASE_3_13
git_last_commit: cb404d2
git_last_commit_date: 2021-05-19 11:51:29 -0400 (Wed, 19 May 2021)
nebbiolo1Linux (Ubuntu 20.04.2 LTS) / x86_64  OK    OK    OK  UNNEEDED, same version is already published
tokay2Windows Server 2012 R2 Standard / x64  OK    OK    OK    OK  UNNEEDED, same version is already published
machv2macOS 10.14.6 Mojave / x86_64  OK    OK    OK    OK  UNNEEDED, same version is already published

Summary

Package: ternarynet
Version: 1.36.0
Command: /home/biocbuild/bbs-3.13-bioc/R/bin/R CMD check --install=check:ternarynet.install-out.txt --library=/home/biocbuild/bbs-3.13-bioc/R/library --no-vignettes --timings ternarynet_1.36.0.tar.gz
StartedAt: 2021-10-14 11:50:41 -0400 (Thu, 14 Oct 2021)
EndedAt: 2021-10-14 11:51:24 -0400 (Thu, 14 Oct 2021)
EllapsedTime: 43.5 seconds
RetCode: 0
Status:   OK  
CheckDir: ternarynet.Rcheck
Warnings: 0

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.13-bioc/R/bin/R CMD check --install=check:ternarynet.install-out.txt --library=/home/biocbuild/bbs-3.13-bioc/R/library --no-vignettes --timings ternarynet_1.36.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.13-bioc/meat/ternarynet.Rcheck’
* using R version 4.1.1 (2021-08-10)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘ternarynet/DESCRIPTION’ ... OK
* this is package ‘ternarynet’ version ‘1.36.0’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘ternarynet’ can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking line endings in shell scripts ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking line endings in Makefiles ... OK
* checking compilation flags in Makevars ... OK
* checking for GNU extensions in Makefiles ... OK
* checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
* checking use of PKG_*FLAGS in Makefiles ... OK
* checking compiled code ... NOTE
Note: information on .o files is not available
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘test_smallmodel.R’
  Running ‘test_smallmodel_2.R’
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: 1 NOTE
See
  ‘/home/biocbuild/bbs-3.13-bioc/meat/ternarynet.Rcheck/00check.log’
for details.



Installation output

ternarynet.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.13-bioc/R/bin/R CMD INSTALL ternarynet
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/bbs-3.13-bioc/R/library’
* installing *source* package ‘ternarynet’ ...
** using staged installation
** libs
gcc -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c array.c -o array.o
gcc -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c gn.c -o gn.o
gn.c: In function ‘score’:
gn.c:506: warning: ignoring #pragma omp parallel [-Wunknown-pragmas]
  506 | #pragma omp parallel for
      | 
gn.c:513: warning: ignoring #pragma omp atomic [-Wunknown-pragmas]
  513 | #pragma omp atomic
      | 
gcc -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c gn_Rwrap.c -o gn_Rwrap.o
gcc -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c init.c -o init.o
g++ -std=gnu++14 -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c tnetfit.cc -o tnetfit.o
tnetfit.cc: In function ‘SEXPREC* tnetfit(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP)’:
tnetfit.cc:24:9: warning: variable ‘perturbationType’ set but not used [-Wunused-but-set-variable]
   24 |     int perturbationType, scoreType, backupStage, maxStage, maxTransition;
      |         ^~~~~~~~~~~~~~~~
tnetfit.cc:24:27: warning: variable ‘scoreType’ set but not used [-Wunused-but-set-variable]
   24 |     int perturbationType, scoreType, backupStage, maxStage, maxTransition;
      |                           ^~~~~~~~~
tnetfit.cc:24:38: warning: variable ‘backupStage’ set but not used [-Wunused-but-set-variable]
   24 |     int perturbationType, scoreType, backupStage, maxStage, maxTransition;
      |                                      ^~~~~~~~~~~
tnetfit.cc:73:39: warning: unused variable ‘tempi’ [-Wunused-variable]
   73 |     int nOutcomes=3, l0, stage_count, tempi, jtrans, nTransition;
      |                                       ^~~~~
tnetfit.cc:311:19: warning: ‘newScore’ may be used uninitialized in this function [-Wmaybe-uninitialized]
  311 |     SET_VECTOR_ELT(Routput, 10, ScalarReal(newScore));
      |     ~~~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tnetfit.cc:207:25: warning: ‘muci_old’ may be used uninitialized in this function [-Wmaybe-uninitialized]
  207 |      convergence = (muci-muci_old)/sigma0;
      |                    ~~~~~^~~~~~~~~~
tnetfit.cc:202:36: warning: ‘sigmaci’ may be used uninitialized in this function [-Wmaybe-uninitialized]
  202 |    sigmaci = rho*sigmaRaw + (1-rho)*sigmaci;
      |                             ~~~~~~~^~~~~~~~
tnetfit.cc:207:18: warning: ‘sigma0’ may be used uninitialized in this function [-Wmaybe-uninitialized]
  207 |      convergence = (muci-muci_old)/sigma0;
      |      ~~~~~~~~~~~~^~~~~~~~~~~~~~~~~~~~~~~~
g++ -std=gnu++14 -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c tnetfuncs.cc -o tnetfuncs.o
tnetfuncs.cc: In function ‘double AttractorDistanceForced(int, int, int, int, double, int*, int*, int*, const double*, const int*)’:
tnetfuncs.cc:427:5: warning: unused variable ‘tableWidth’ [-Wunused-variable]
  427 | int tableWidth = powi(nOutcomes,maxDegree);
      |     ^~~~~~~~~~
tnetfuncs.cc:435:5: warning: unused variable ‘ipause’ [-Wunused-variable]
  435 | int ipause;
      |     ^~~~~~
tnetfuncs.cc: In function ‘double initialTemp(double, int, int, int, int, int, double, double, double, int, const double*, int*, int*, int*, const double*, const int*)’:
tnetfuncs.cc:517:6: warning: unused variable ‘ipause’ [-Wunused-variable]
  517 |  int ipause;
      |      ^~~~~~
tnetfuncs.cc:521:16: warning: unused variable ‘i’ [-Wunused-variable]
  521 |    int m1, m2, i;
      |                ^
g++ -std=gnu++14 -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c tnetpost.cc -o tnetpost.o
tnetpost.cc: In function ‘SEXPREC* tnetpost(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP)’:
tnetpost.cc:25:9: warning: unused variable ‘ipause’ [-Wunused-variable]
   25 |     int ipause;
      |         ^~~~~~
tnetpost.cc:27:9: warning: unused variable ‘m0fit’ [-Wunused-variable]
   27 |     int m0fit;
      |         ^~~~~
tnetpost.cc:28:32: warning: variable ‘minScore’ set but not used [-Wunused-but-set-variable]
   28 |     double newScore, oldScore, minScore, finalScore;
      |                                ^~~~~~~~
tnetpost.cc:28:42: warning: unused variable ‘finalScore’ [-Wunused-variable]
   28 |     double newScore, oldScore, minScore, finalScore;
      |                                          ^~~~~~~~~~
tnetpost.cc:30:9: warning: unused variable ‘l0’ [-Wunused-variable]
   30 |     int l0, stage_count, tempi, jtrans, nTransition;
      |         ^~
tnetpost.cc:30:13: warning: unused variable ‘stage_count’ [-Wunused-variable]
   30 |     int l0, stage_count, tempi, jtrans, nTransition;
      |             ^~~~~~~~~~~
tnetpost.cc:30:26: warning: unused variable ‘tempi’ [-Wunused-variable]
   30 |     int l0, stage_count, tempi, jtrans, nTransition;
      |                          ^~~~~
tnetpost.cc:30:33: warning: unused variable ‘jtrans’ [-Wunused-variable]
   30 |     int l0, stage_count, tempi, jtrans, nTransition;
      |                                 ^~~~~~
tnetpost.cc:30:41: warning: unused variable ‘nTransition’ [-Wunused-variable]
   30 |     int l0, stage_count, tempi, jtrans, nTransition;
      |                                         ^~~~~~~~~~~
tnetpost.cc:36:21: warning: variable ‘xSeedFit’ set but not used [-Wunused-but-set-variable]
   36 |     int m0, mdelta, xSeedFit;
      |                     ^~~~~~~~
tnetpost.cc:38:9: warning: variable ‘perturbationType’ set but not used [-Wunused-but-set-variable]
   38 |     int perturbationType, scoreType, backupStage;
      |         ^~~~~~~~~~~~~~~~
tnetpost.cc:38:27: warning: variable ‘scoreType’ set but not used [-Wunused-but-set-variable]
   38 |     int perturbationType, scoreType, backupStage;
      |                           ^~~~~~~~~
tnetpost.cc:38:38: warning: variable ‘backupStage’ set but not used [-Wunused-but-set-variable]
   38 |     int perturbationType, scoreType, backupStage;
      |                                      ^~~~~~~~~~~
tnetpost.cc:39:9: warning: variable ‘maxStage’ set but not used [-Wunused-but-set-variable]
   39 |     int maxStage, maxTransition;
      |         ^~~~~~~~
tnetpost.cc:39:19: warning: variable ‘maxTransition’ set but not used [-Wunused-but-set-variable]
   39 |     int maxStage, maxTransition;
      |                   ^~~~~~~~~~~~~
tnetpost.cc:40:12: warning: variable ‘epsilon’ set but not used [-Wunused-but-set-variable]
   40 |     double epsilon, chi0, delta, rho;
      |            ^~~~~~~
tnetpost.cc:40:21: warning: variable ‘chi0’ set but not used [-Wunused-but-set-variable]
   40 |     double epsilon, chi0, delta, rho;
      |                     ^~~~
tnetpost.cc:40:27: warning: variable ‘delta’ set but not used [-Wunused-but-set-variable]
   40 |     double epsilon, chi0, delta, rho;
      |                           ^~~~~
tnetpost.cc:40:34: warning: variable ‘rho’ set but not used [-Wunused-but-set-variable]
   40 |     double epsilon, chi0, delta, rho;
      |                                  ^~~
In file included from tnetpost.cc:14:
/home/biocbuild/bbs-3.13-bioc/R/include/Rmath.h:212:15: warning: variable ‘Rf_beta’ set but not used [-Wunused-but-set-variable]
  212 | #define beta  Rf_beta
      |               ^~~~~~~
tnetpost.cc:41:9: note: in expansion of macro ‘beta’
   41 |     int beta;
      |         ^~~~
tnetpost.cc:44:9: warning: variable ‘ne’ set but not used [-Wunused-but-set-variable]
   44 |     int ne, maxDegree;
      |         ^~
tnetpost.cc:150:10: warning: variable ‘minDump’ set but not used [-Wunused-but-set-variable]
  150 |     bool minDump = true;
      |          ^~~~~~~
gcc -I"/home/biocbuild/bbs-3.13-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c util.c -o util.o
g++ -std=gnu++14 -shared -L/home/biocbuild/bbs-3.13-bioc/R/lib -L/usr/local/lib -o ternarynet.so array.o gn.o gn_Rwrap.o init.o tnetfit.o tnetfuncs.o tnetpost.o util.o -L/home/biocbuild/bbs-3.13-bioc/R/lib -lR
installing to /home/biocbuild/bbs-3.13-bioc/R/library/00LOCK-ternarynet/00new/ternarynet/libs
** R
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (ternarynet)

Tests output

ternarynet.Rcheck/tests/test_smallmodel.Rout


R version 4.1.1 (2021-08-10) -- "Kick Things"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

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.

> library(testthat)
> library(ternarynet) 
> 
> smallmodel_score <- function() {
+ 
+     library(ternarynet)
+ 
+     i_exp <- as.integer(c(0,0,0, 0,0,0, 0,0,0, 0,0,0,
+                           1,1,1, 1,1,1, 1,1,1, 1,1,1,
+                           2,2,2, 2,2,2, 2,2,2, 2,2,2,
+                           3,3,3, 3,3,3, 3,3,3, 3,3,3,
+                           4,4,4, 4,4,4, 4,4,4, 4,4,4,
+                           5,5,5, 5,5,5, 5,5,5, 5,5,5,
+                           6,6,6, 6,6,6, 6,6,6, 6,6,6,
+                           7,7,7, 7,7,7, 7,7,7, 7,7,7))
+ 
+     i_node <- as.integer(c(0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3,
+                            0,0,0, 1,1,1, 2,2,2, 3,3,3))
+ 
+     outcome <- as.integer(c(-1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1, -1,0,1))
+ 
+     value <- c(0,1,2, 0,1,2, 0,1,2, 0,1,2,
+                2,1,0, 0,1,2, 0,1,2, 0,1,2,
+                2,1,0, 2,1,0, 0,1,2, 0,1,2,
+                2,1,0, 2,1,0, 2,1,0, 0,1,2,
+                2,1,0, 2,1,0, 2,1,0, 2,1,0,
+                0,1,2, 2,1,0, 2,1,0, 2,1,0,
+                0,1,2, 0,1,2, 2,1,0, 2,1,0,
+                0,1,2, 0,1,2, 0,1,2, 2,1,0)
+ 
+     is_perturbation <- c(TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, FALSE,FALSE,FALSE, FALSE,FALSE,FALSE,
+                          FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE, FALSE,FALSE,FALSE,
+                          FALSE,FALSE,FALSE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                          FALSE,FALSE,FALSE,  FALSE,FALSE,FALSE, FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                          TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, FALSE,FALSE,FALSE, FALSE,FALSE,FALSE,
+                          FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE, FALSE,FALSE,FALSE,
+                          FALSE,FALSE,FALSE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                          FALSE,FALSE,FALSE,  FALSE,FALSE,FALSE, FALSE,FALSE,FALSE, TRUE,TRUE,TRUE)
+ 
+     indata <- data.frame(i_exp,i_node,outcome,value,is_perturbation)
+ 
+     results <- parallelFit(indata,
+                             max_parents=1,
+                             n_cycles=100000,
+                             n_write=10,
+                             T_lo=0.001,
+                             T_hi=1.0,
+                             target_score=0,
+                             n_proc=1,
+                             logfile='try.log')
+     
+     lowest_temp_results <- results[[1]]
+ 
+     lowest_temp_results$unnormalized_score
+ 
+ }
>    
> test_that("smallmodel", {
+     expect_true(smallmodel_score() == 0)
+ })
Test passed 😀
> 
> proc.time()
   user  system elapsed 
  1.056   0.083   1.125 

ternarynet.Rcheck/tests/test_smallmodel_2.Rout


R version 4.1.1 (2021-08-10) -- "Kick Things"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

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.

> library(testthat)
> library(ternarynet) 
> 
> smallmodel_2_score <- function() {
+ 
+     library(ternarynet)
+ 
+     i_exp <- as.integer(c(0,0,0, 0,0,0, 0,0,0,
+                         1,1,1, 1,1,1, 1,1,1,
+                         2,2,2, 2,2,2, 2,2,2,
+                         3,3,3, 3,3,3, 3,3,3,
+                         4,4,4, 4,4,4, 4,4,4,
+                         5,5,5, 5,5,5, 5,5,5,
+                         6,6,6, 6,6,6, 6,6,6,
+                         7,7,7, 7,7,7, 7,7,7,
+                         8,8,8, 8,8,8, 8,8,8,
+                         9,9,9, 9,9,9, 9,9,9,
+                         10,10,10, 10,10,10, 10,10,10,
+                         11,11,11, 11,11,11, 11,11,11,
+                         12,12,12, 12,12,12, 12,12,12,
+                         13,13,13, 13,13,13, 13,13,13,
+                         14,14,14, 14,14,14, 14,14,14,
+                         15,15,15, 15,15,15, 15,15,15,
+                         16,16,16, 16,16,16, 16,16,16,
+                         17,17,17, 17,17,17, 17,17,17))
+ 
+     i_node <- as.integer(c(0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2,
+                         0,0,0, 1,1,1, 2,2,2))
+ 
+     outcome <- as.integer(c(-1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1,
+                             -1,0,1, -1,0,1, -1,0,1))
+ 
+     value <- c(2,1,0, 1,0,1, 2,1,0,
+             1,0,1, 2,1,0, 0,1,2,
+             1,0,1, 1,0,1, 2,1,0,
+             0,1,2, 1,0,1, 0,1,2,
+             1,0,1, 0,1,2, 2,1,0,
+             1,0,1, 1,0,1, 0,1,2,
+             2,1,0, 1,0,1, 2,1,0,
+             0,1,2, 1,0,1, 0,1,2,
+             1,0,1, 2,1,0, 0,1,2,
+             1,0,1, 0,1,2, 2,1,0,
+             2,1,0, 2,1,0, 1,0,1,
+             0,1,2, 0,1,2, 1,0,1,
+             2,1,0, 0,1,2, 2,1,0,
+             0,1,2, 2,1,0, 0,1,2,
+             2,1,0, 1,0,1, 0,1,2,
+             0,1,2, 1,0,1, 2,1,0,
+             1,0,1, 2,1,0, 2,1,0,
+             1,0,1, 0,1,2, 0,1,2)
+ 
+     is_perturbation <- c(TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, FALSE,FALSE,FALSE,
+                         FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                         FALSE,FALSE,FALSE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                         TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, FALSE,FALSE,FALSE,
+                         FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                         FALSE,FALSE,FALSE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                         TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                         TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                         FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, TRUE,TRUE,TRUE,
+                         FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, TRUE,TRUE,TRUE,
+                         TRUE,TRUE,TRUE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                         TRUE,TRUE,TRUE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                         TRUE,TRUE,TRUE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                         TRUE,TRUE,TRUE,  TRUE,TRUE,TRUE, FALSE,FALSE,FALSE,
+                         TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                         TRUE,TRUE,TRUE,  FALSE,FALSE,FALSE, TRUE,TRUE,TRUE,
+                         FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, TRUE,TRUE,TRUE,
+                         FALSE,FALSE,FALSE,  TRUE,TRUE,TRUE, TRUE,TRUE,TRUE)
+ 
+     indata <- data.frame(i_exp,i_node,outcome,value,is_perturbation)
+ 
+     results <- parallelFit(indata,
+                             max_parents=2,
+                             n_cycles=100000,
+                             n_write=10,
+                             T_lo=0.001,
+                             T_hi=2.0,
+                             target_score=0,
+                             n_proc=1,
+                             logfile='try2.log')
+     
+     lowest_temp_results <- results[[1]]
+ 
+     lowest_temp_results$unnormalized_score
+ 
+ }
>    
> test_that("smallmodel_2", {
+     expect_true(smallmodel_2_score() == 0)
+ })
Test passed 🥳
> 
> proc.time()
   user  system elapsed 
  1.207   0.072   1.265 

Example timings

ternarynet.Rcheck/ternarynet-Ex.timings

nameusersystemelapsed
attractorSummary1.6730.0001.674
graphPosterior1.6480.0001.649
parallelFit0.2010.0080.208
plotFit1.7070.0041.710
plotPost1.6660.0001.666
plotTraces1.6420.0001.643
predictAttractor1.6640.0001.664
simulateSteadyState0.0020.0000.001
ternaryFit-class1.7670.0041.772
ternaryFitParameters-class0.0000.0020.001
ternaryPost-class1.6590.0001.659
tnetfit1.6560.0001.657
tnetpost1.6840.0001.684