Back to Multiple platform build/check report for BioC 3.19:   simplified   long
AB[C]DEFGHIJKLMNOPQRSTUVWXYZ

This page was generated on 2024-06-11 14:39 -0400 (Tue, 11 Jun 2024).

HostnameOSArch (*)R versionInstalled pkgs
nebbiolo1Linux (Ubuntu 22.04.3 LTS)x86_644.4.0 (2024-04-24) -- "Puppy Cup" 4757
palomino3Windows Server 2022 Datacenterx644.4.0 (2024-04-24 ucrt) -- "Puppy Cup" 4491
lconwaymacOS 12.7.1 Montereyx86_644.4.0 (2024-04-24) -- "Puppy Cup" 4522
kjohnson3macOS 13.6.5 Venturaarm644.4.0 (2024-04-24) -- "Puppy Cup" 4468
Click on any hostname to see more info about the system (e.g. compilers)      (*) as reported by 'uname -p', except on Windows and Mac OS X

Package 305/2300HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
CellNOptR 1.50.0  (landing page)
Attila Gabor
Snapshot Date: 2024-06-09 14:00 -0400 (Sun, 09 Jun 2024)
git_url: https://git.bioconductor.org/packages/CellNOptR
git_branch: RELEASE_3_19
git_last_commit: e4b03a7
git_last_commit_date: 2024-04-30 10:26:12 -0400 (Tue, 30 Apr 2024)
nebbiolo1Linux (Ubuntu 22.04.3 LTS) / x86_64  OK    OK    OK  UNNEEDED, same version is already published
palomino3Windows Server 2022 Datacenter / x64  OK    OK    OK    OK  UNNEEDED, same version is already published
lconwaymacOS 12.7.1 Monterey / x86_64  OK    OK    OK    OK  UNNEEDED, same version is already published
kjohnson3macOS 13.6.5 Ventura / arm64  OK    OK    OK    OK  UNNEEDED, same version is already published


CHECK results for CellNOptR on nebbiolo1

To the developers/maintainers of the CellNOptR package:
- Allow up to 24 hours (and sometimes 48 hours) for your latest push to git@git.bioconductor.org:packages/CellNOptR.git to reflect on this report. See Troubleshooting Build Report for more information.
- Use the following Renviron settings to reproduce errors and warnings.
- If 'R CMD check' started to fail recently on the Linux builder(s) over a missing dependency, add the missing dependency to 'Suggests:' in your DESCRIPTION file. See Renviron.bioc for more information.

raw results


Summary

Package: CellNOptR
Version: 1.50.0
Command: /home/biocbuild/bbs-3.19-bioc/R/bin/R CMD check --install=check:CellNOptR.install-out.txt --library=/home/biocbuild/bbs-3.19-bioc/R/site-library --timings CellNOptR_1.50.0.tar.gz
StartedAt: 2024-06-09 21:22:05 -0400 (Sun, 09 Jun 2024)
EndedAt: 2024-06-09 21:23:58 -0400 (Sun, 09 Jun 2024)
EllapsedTime: 113.2 seconds
RetCode: 0
Status:   OK  
CheckDir: CellNOptR.Rcheck
Warnings: 0

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.19-bioc/R/bin/R CMD check --install=check:CellNOptR.install-out.txt --library=/home/biocbuild/bbs-3.19-bioc/R/site-library --timings CellNOptR_1.50.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.19-bioc/meat/CellNOptR.Rcheck’
* using R version 4.4.0 (2024-04-24)
* using platform: x86_64-pc-linux-gnu
* R was compiled by
    gcc (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0
    GNU Fortran (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0
* running under: Ubuntu 22.04.4 LTS
* using session charset: UTF-8
* checking for file ‘CellNOptR/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘CellNOptR’ version ‘1.50.0’
* checking package namespace information ... OK
* checking package dependencies ... NOTE
Depends: includes the non-default packages:
  'RBGL', 'graph', 'RCurl', 'Rgraphviz', 'XML', 'ggplot2', 'rmarkdown'
Adding so many packages to the search path is excessive and importing
selectively is preferable.
* 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 ‘CellNOptR’ can be installed ... OK
* used C compiler: ‘gcc (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0’
* 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 code 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 loading without being on the library search path ... OK
* checking dependencies in R code ... NOTE
Package in Depends field not imported from: ‘rmarkdown’
  These packages need to be imported from (in the NAMESPACE file)
  for when this namespace is loaded but not attached.
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
.error.bar: no visible global function definition for ‘arrows’
CNORwrap: no visible global function definition for ‘pdf’
CNORwrap: no visible global function definition for ‘dev.off’
build_sif_table_from_rule : rename_gates: no visible binding for global
  variable ‘node_in’
build_sif_table_from_rule : rename_gates: no visible binding for global
  variable ‘node_out’
build_sif_table_from_rule : simplify_gates: no visible global function
  definition for ‘filter’
build_sif_table_from_rule : simplify_gates: no visible binding for
  global variable ‘node_in’
build_sif_table_from_rule : simplify_gates: no visible binding for
  global variable ‘node_out’
build_sif_table_from_rule : interpret_sif_list: no visible global
  function definition for ‘setNames’
build_sif_table_from_rule : interpret_sif_list: no visible binding for
  global variable ‘num_or’
build_sif_table_from_rule : interpret_sif_list: no visible binding for
  global variable ‘node_out’
build_sif_table_from_rule : interpret_sif_list: no visible binding for
  global variable ‘new_node_out’
build_sif_table_from_rule : interpret_sif_list: no visible binding for
  global variable ‘node_in’
build_sif_table_from_rule : interpret_sif_list: no visible binding for
  global variable ‘new_node_in’
build_sif_table_from_rule : interpret_sif_list: no visible global
  function definition for ‘filter’
build_sif_table_from_rule : interpret_sif_list: no visible global
  function definition for ‘distinct’
build_sif_table_from_rule : interpret_sif_list: no visible binding for
  global variable ‘or_members’
build_sif_table_from_rule : write_sif: no visible binding for global
  variable ‘node_in’
build_sif_table_from_rule : write_sif: no visible binding for global
  variable ‘node_out’
build_sif_table_from_rule : write_sif: no visible binding for global
  variable ‘sign1’
build_sif_table_from_rule : write_sif: no visible binding for global
  variable ‘sign2’
createEdgeAttrs: no visible global function definition for ‘rgb’
crossvalidateBoolean: no visible global function definition for ‘error’
expandGates: no visible global function definition for ‘combn’
gaBinaryT1: no visible global function definition for ‘runif’
gaBinaryTN: no visible global function definition for ‘runif’
graph2sif: no visible global function definition for ‘write.table’
makeCNOlist: no visible binding for global variable ‘var’
mapBack: no visible global function definition for ‘write.table’
plotCNOlist: no visible global function definition for ‘par’
plotCNOlist: no visible global function definition for ‘text’
plotCNOlist: no visible global function definition for ‘axis’
plotCNOlist: no visible global function definition for ‘barplot’
plotCNOlistLarge: no visible global function definition for ‘par’
plotCNOlistLarge: no visible global function definition for ‘dev.new’
plotCNOlistLarge: no visible global function definition for ‘text’
plotCNOlistLarge: no visible global function definition for ‘axis’
plotCNOlistLarge: no visible global function definition for ‘image’
plotCNOlistLargePDF: no visible global function definition for ‘pdf’
plotCNOlistLargePDF: no visible global function definition for
  ‘dev.off’
plotCNOlistPDF: no visible global function definition for ‘pdf’
plotCNOlistPDF: no visible global function definition for ‘dev.off’
plotFit: no visible global function definition for ‘par’
plotFit: no visible global function definition for ‘pdf’
plotFit: no visible global function definition for ‘dev.off’
plotModel: no visible global function definition for ‘pdf’
plotModel: no visible global function definition for ‘png’
plotModel: no visible global function definition for ‘svg’
plotModel: no visible global function definition for ‘read.table’
plotModel: no visible global function definition for
  ‘installed.packages’
plotModel: no visible global function definition for ‘dev.off’
plotOptimResults: no visible global function definition for ‘par’
plotOptimResults: no visible global function definition for ‘text’
plotOptimResults: no visible global function definition for ‘rect’
plotOptimResults: no visible global function definition for ‘points’
plotOptimResults: no visible global function definition for ‘axis’
plotOptimResults: no visible global function definition for ‘image’
plotOptimResultsPDF: no visible global function definition for ‘pdf’
plotOptimResultsPDF: no visible global function definition for
  ‘dev.off’
plotOptimResultsPan: no visible global function definition for ‘par’
plotOptimResultsPan: no visible global function definition for
  ‘split.screen’
plotOptimResultsPan: no visible global function definition for
  ‘heat.colors’
plotOptimResultsPan: no visible global function definition for ‘screen’
plotOptimResultsPan: no visible global function definition for ‘text’
plotOptimResultsPan: no visible global function definition for ‘rect’
plotOptimResultsPan: no visible global function definition for ‘points’
plotOptimResultsPan: no visible global function definition for ‘axis’
plotOptimResultsPan: no visible global function definition for
  ‘barplot’
plotOptimResultsPan: no visible global function definition for ‘image’
plotOptimResultsPan: no visible global function definition for
  ‘plot.new’
plotOptimResultsPan: no visible global function definition for
  ‘segments’
plotOptimResultsPan: no visible global function definition for
  ‘close.screen’
plotOptimResultsPan: no visible global function definition for
  ‘dev.off’
randomizeCNOlist: no visible global function definition for ‘rnorm’
randomizeCNOlist: no visible global function definition for ‘runif’
readBND: no visible global function definition for ‘write.table’
readBNET: no visible global function definition for ‘mutate’
readBNET: no visible binding for global variable ‘factors’
readBNET: no visible binding for global variable ‘i_and_gates’
readBNET: no visible binding for global variable ‘.’
readBNET: no visible binding for global variable ‘sif_df’
readBNET: no visible global function definition for ‘write.table’
readMIDAS: no visible global function definition for ‘count.fields’
readMIDAS: no visible global function definition for ‘read.csv’
readMIDAS: no visible global function definition for ‘read.table’
readSBMLQual: no visible global function definition for ‘write.table’
readSIF: no visible global function definition for ‘read.table’
sif2graph: no visible global function definition for ‘read.table’
writeMIDAS: no visible global function definition for ‘write.table’
writeNetworkW: no visible global function definition for ‘write.table’
writeSIF: no visible global function definition for ‘write.table’
writeScaffoldW: no visible global function definition for ‘write.table’
Undefined global functions or variables:
  . arrows axis barplot close.screen combn count.fields dev.new dev.off
  distinct error factors filter heat.colors i_and_gates image
  installed.packages mutate new_node_in new_node_out node_in node_out
  num_or or_members par pdf plot.new png points read.csv read.table
  rect rgb rnorm runif screen segments setNames sif_df sign1 sign2
  split.screen svg text var write.table
Consider adding
  importFrom("grDevices", "dev.new", "dev.off", "heat.colors", "pdf",
             "png", "rgb", "svg")
  importFrom("graphics", "arrows", "axis", "barplot", "close.screen",
             "image", "par", "plot.new", "points", "rect", "screen",
             "segments", "split.screen", "text")
  importFrom("stats", "filter", "rnorm", "runif", "setNames", "var")
  importFrom("utils", "combn", "count.fields", "installed.packages",
             "read.csv", "read.table", "write.table")
to your NAMESPACE file.
* checking Rd files ... NOTE
checkRd: (-1) computeScoreT1.Rd:27: Lost braces
    27 |         a model structure, as created by code{readSIF}, normally pre-processed 
       |                                              ^
checkRd: (-1) computeScoreTN.Rd:26: Lost braces
    26 |         a model structure, as created by code{readSIF}, normally pre-processed 
       |                                              ^
checkRd: (-1) plotModel.Rd:59: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:60: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:61: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:62: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:63: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:64: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:65: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:66: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:67: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:68: Lost braces in \itemize; meant \describe ?
checkRd: (-1) plotModel.Rd:69: Lost braces in \itemize; meant \describe ?
* 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 contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... 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_gaBinaryT1.R’
  Running ‘test_gaBinaryT2.R’
  Running ‘test_gaBinaryT3.R’
  Running ‘test_import_rules.R’
  Running ‘test_manySteadyStates.R’
  Running ‘test_priorBitString.R’
  Running ‘test_simulateTN.R’
 OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes ... OK
* checking re-building of vignette outputs ... OK
* checking PDF version of manual ... OK
* DONE

Status: 5 NOTEs
See
  ‘/home/biocbuild/bbs-3.19-bioc/meat/CellNOptR.Rcheck/00check.log’
for details.


Installation output

CellNOptR.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.19-bioc/R/bin/R CMD INSTALL CellNOptR
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/bbs-3.19-bioc/R/site-library’
* installing *source* package ‘CellNOptR’ ...
** using staged installation
** libs
using C compiler: ‘gcc (Ubuntu 11.4.0-1ubuntu1~22.04) 11.4.0’
gcc -I"/home/biocbuild/bbs-3.19-bioc/R/include" -DNDEBUG   -I/usr/local/include   -I./include  -fpic  -g -O2  -Wall -c simulatorT1.c -o simulatorT1.o
gcc -I"/home/biocbuild/bbs-3.19-bioc/R/include" -DNDEBUG   -I/usr/local/include   -I./include  -fpic  -g -O2  -Wall -c simulatorTN.c -o simulatorTN.o
gcc -shared -L/home/biocbuild/bbs-3.19-bioc/R/lib -L/usr/local/lib -o CellNOptR.so simulatorT1.o simulatorTN.o -L/home/biocbuild/bbs-3.19-bioc/R/lib -lR
installing to /home/biocbuild/bbs-3.19-bioc/R/site-library/00LOCK-CellNOptR/00new/CellNOptR/libs
** R
** data
** 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 (CellNOptR)

Tests output

CellNOptR.Rcheck/tests/test_gaBinaryT1.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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.

> #
> #  This file is part of the CNO software
> #
> #  Copyright (c) 2011-2012 - EBI
> #
> #  File author(s): CNO developers (cno-dev@ebi.ac.uk)
> #
> #  Distributed under the GPLv2 License.
> #  See accompanying file LICENSE.txt or copy at
> #      http://www.gnu.org/licenses/gpl-2.0.html
> #
> #  CNO website: http://www.ebi.ac.uk/saezrodriguez/cno
> #
> ##############################################################################
> # $Id$
> 
> # This is a test of the ToyModel and gaBinaryT1
> library(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> 
> # read data
> pknmodel = readSIF(system.file("ToyModel/ToyPKNMMB.sif", package="CellNOptR"))
> data = readMIDAS(system.file("ToyModel/ToyDataMMB.csv", package="CellNOptR"))
[1] "Your data set comprises  18 conditions (i.e. combinations of time point and treatment)"
[1] "Your data set comprises measurements on  7  different species"
[1] "Your data set comprises  4 stimuli/inhibitors and 1 cell line(s) ( mock )"
[1] "Please be aware that CNO only handles measurements on one cell line at this time."
[1] "Your data file contained 'NaN'. We have assumed that these were missing values and replaced them by NAs."
> cnolist = makeCNOlist(data, subfield=FALSE)
[1] "Please be aware that if you only have some conditions at time zero (e.g.only inhibitor/no inhibitor), the measurements for these conditions will be copied across matching conditions at t=0"
> 
> # preprocessing
> model = preprocessing(cnolist, pknmodel, verbose=FALSE)
> 
> # optimisation
> T1opt<-gaBinaryT1(CNOlist=cnolist,model=model,verbose=FALSE)
> 
> truebs =c(1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0)
> print(truebs)
 [1] 1 1 0 1 1 0 1 1 0 0 1 1 1 0 0 0
> print(T1opt$bString)
 [1] 1 1 0 1 1 0 1 1 0 0 1 1 1 0 0 0
> 
> # testing valid output
> if (dist(rbind(T1opt$bString, truebs))>2){
+ stop("something wrong going on")
+ }
> 
> # extra call to simulateTN
> SimT1<-simulateTN(CNOlist=cnolist,model=model, bStrings=list(truebs))
> 
> 
> proc.time()
   user  system elapsed 
  2.530   0.133   2.651 

CellNOptR.Rcheck/tests/test_gaBinaryT2.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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.

> #
> #  This file is part of the CNO software
> #
> #  Copyright (c) 2011-2012 - EBI
> #
> #  File author(s): CNO developers (cno-dev@ebi.ac.uk)
> #
> #  Distributed under the GPLv2 License.
> #  See accompanying file LICENSE.txt or copy at
> #      http://www.gnu.org/licenses/gpl-2.0.html
> #
> #  CNO website: http://www.ebi.ac.uk/saezrodriguez/cno
> #
> ##############################################################################
> # $Id$
> 
> # This is a test of the ToyModel and gaBinaryT1
> # 
> 
> library(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> data(CNOlistToy2, package="CellNOptR")
> data(ToyModel2, package="CellNOptR")
> cnolist = CNOlistToy2
> pknmodel = ToyModel2
> 
> model = preprocessing(cnolist, pknmodel, verbose=FALSE)
> T1opt<-gaBinaryT1(CNOlist=cnolist,model=model,verbose=FALSE)
> print(T1opt$bString)
 [1] 1 1 1 1 1 0 1 1 0 0 1 1 1 1 0 0 0 0
> 
> truebs = c(1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0)
> 
> 
> T2opt<-gaBinaryTN(CNOlist=cnolist,model=model,bStrings=list(truebs),verbose=FALSE)
> truebs2 = c(0, 0, 0, 1, 0, 0, 0)
> 
> print(T2opt$bString)
[1] 0 0 0 1 0 0 0
> 
> proc.time()
   user  system elapsed 
  3.291   0.162   3.442 

CellNOptR.Rcheck/tests/test_gaBinaryT3.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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.

> #
> #  This file is part of the CNO software
> #
> #  Copyright (c) 2011-2012 - EBI
> #
> #  File author(s): CNO developers (cno-dev@ebi.ac.uk)
> #
> #  Distributed under the GPLv2 License.
> #  See accompanying file LICENSE.txt or copy at
> #      http://www.gnu.org/licenses/gpl-2.0.html
> #
> #  CNO website: http://www.ebi.ac.uk/saezrodriguez/cno
> #
> ##############################################################################
> # $Id$
> 
> # This is a test of the ToyModel and gaBinaryT1
> # 
> 
> library(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> 
> pknmodel = readSIF(system.file("ToyModelT3/ToyModelT3.sif", package="CellNOptR"))
> cnolist = CNOlist(system.file("ToyModelT3/ToyDataT3.csv", package="CellNOptR"))
> model = preprocessing(cnolist, pknmodel, verbose=FALSE)
> 
> # expected values
> bestBS = c(1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0,0)
> bestBS2 <- c(0,0,0,0,0,0,1)
> bestBS3 <- c(0,0,1,0,0,0)
> 
> # just to check that the simulateTN function works 
> SimT1<-simulateTN(CNOlist=cnolist, model=model, bString=list(bestBS))
> SimT2<-simulateTN(CNOlist=cnolist, model=model, bStrings=list(bestBS,bestBS2))
> SimT3<-simulateTN(CNOlist=cnolist, model=model, bStrings=list(bestBS, bestBS2, bestBS3))
> 
> 
> # again, just to check that gaBinary works
> # run T1 first, 
> T1opt<-gaBinaryT1(CNOlist=cnolist,model=model,verbose=FALSE)
> # run T2
> T2opt<-gaBinaryTN(CNOlist=cnolist,model=model,bStrings=list(T1opt$bString),verbose=FALSE)
> # run T3
> T3opt<-gaBinaryTN(CNOlist=cnolist,model=model,bStrings=list(bestBS, bestBS2),verbose=FALSE)
> 
> print( T1opt$bScore)
             
4.545455e-05 
> print( T2opt$bScore)
[1] 5.454545e-05
> print( T3opt$bScore)
[1] 6.363636e-05
> # no using the hardcoded parameters, we can check the output of te scores that
> # must be tiny.
> score1 = computeScoreT1(cnolist, model, bString=bestBS)
> score2 = computeScoreTN(cnolist, model, bStrings=list(bestBS,bestBS2))
> score3 = computeScoreTN(cnolist, model, bStrings=list(bestBS,bestBS2, bestBS3))
> 
> 
> print(score1)
[1] 4.545455e-05
> print(score2)
[1] 5.454545e-05
> print(score3)
[1] 6.363636e-05
> if (score1>0.01 || score2>0.24 || score3>0.1){
+    # ideally, the score should all be close to 0. In practice, it's about 1e-5
+    # However, in the  T3 case, once in while, the score is 0.0953 hence the
+    # score3>0.1
+    stop("errore")
+ }
> cutAndPlot(cnolist, model,bStrings=list(bestBS),plotPDF=TRUE, tag="test1")
$filenames
$filenames[[1]]
[1] "test1_SimResultsT1_1_.pdf"


$mse
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults
$simResults[[1]]
$simResults[[1]]$t0
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults[[1]]$t1
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    1
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    1
[6,]    1    0    0    1    1    1
[7,]    0    0    0    0    0    0



> cutAndPlot(cnolist, model,bStrings=list(bestBS,bestBS2),plotPDF=TRUE, tag="test2")
$mse
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$filenames
list()

$simResults
$simResults[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults[[2]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    1
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    1
[6,]    1    0    0    1    1    1
[7,]    0    0    0    0    0    0

$simResults[[3]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    0
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    0
[6,]    1    0    0    1    1    0
[7,]    0    0    0    0    0    0


> cutAndPlot(cnolist, model, bStrings=list(bestBS,bestBS2,bestBS3),plotPDF=TRUE, tag="test3")
$mse
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$filenames
list()

$simResults
$simResults[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults[[2]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    1
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    1
[6,]    1    0    0    1    1    1
[7,]    0    0    0    0    0    0

$simResults[[3]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    0
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    0
[6,]    1    0    0    1    1    0
[7,]    0    0    0    0    0    0

$simResults[[4]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    1    1    0    0    0
[2,]    0    0    0    1    0    1
[3,]    0    1    1    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    1    0    1
[6,]    0    0    0    1    0    1
[7,]    0    0    0    0    0    0


> 
> 
> 
> warnings()
> 
> proc.time()
   user  system elapsed 
  3.971   0.207   4.168 

CellNOptR.Rcheck/tests/test_import_rules.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> 
> # test readBND ------------------------------------------------------------------
> 
> required_pcks = list("dplyr","tidyr","readr")
> 
> if(!all(unlist(lapply(required_pcks,requireNamespace)))){
+ 	print("the following packages need to be installed to use readBND:")	
+ 	print(unlist(required_pcks))
+ 	print("Please, install the packages manually for this feature.")
+ 
+ }else{
+ 	#download.file("https://maboss.curie.fr/pub/example.bnd",destfile = "./tests/example.bnd")
+ 	
+ 	model = readBND("./data/example.bnd")
+ 	#model = readBND("https://maboss.curie.fr/pub/example1.bnd")
+ 	
+ 	# basic checks for being a CellNoptR model:
+ 	stopifnot(is.list(model))
+ 	stopifnot(length(model)==4)
+ 	stopifnot(all(names(model) %in% c("reacID","namesSpecies","interMat","notMat")))
+ 	stopifnot(length(model$reacID)==ncol(model$interMat))
+ 	stopifnot(length(model$reacID)==ncol(model$notMat))
+ 	stopifnot(length(model$namesSpecies)==nrow(model$interMat))
+ 	stopifnot(length(model$namesSpecies)==nrow(model$notMat))
+ 	
+ 	#plotModel(model)
+ 	
+ 	
+ 	
+ }
Loading required namespace: tidyr
Loading required namespace: readr
Loading required package: dplyr

Attaching package: 'dplyr'

The following object is masked from 'package:graph':

    union

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

    combine, intersect, setdiff, union

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

    filter, lag

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

    intersect, setdiff, setequal, union

Loading required package: tidyr

Attaching package: 'tidyr'

The following object is masked from 'package:RCurl':

    complete

Loading required package: readr
> 
> 
> 
> proc.time()
   user  system elapsed 
  2.135   0.204   2.330 

CellNOptR.Rcheck/tests/test_manySteadyStates.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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.

> #
> #  This file is part of the CNO software
> #
> #  Copyright (c) 2011-2012 - EBI
> #
> #  File author(s): CNO developers (cno-dev@ebi.ac.uk)
> #
> #  Distributed under the GPLv2 License.
> #  See accompanying file LICENSE.txt or copy at
> #      http://www.gnu.org/licenses/gpl-2.0.html
> #
> #  CNO website: http://www.ebi.ac.uk/saezrodriguez/software.html
> #
> ##############################################################################
> # $Id$
> 
> # This test runs optimisation using Boolean logic at different time points
> # Author: S.Schrier, T.Cokelaer
> 
> 
> 
> manySteadyStates <-function(
+   CNOlist,
+   model,
+   sizeFac=0.0001,
+   NAFac=1,
+   popSize=50,
+   pMutation=0.5,
+   maxTime=60,
+   maxGens=500,
+   stallGenMax=100,
+   selPress=1.2,
+   elitism=5,
+   relTol=0.1,
+   verbose=FALSE,
+   priorBitString=NULL){
+ 
+ 
+     #initialize Opt array
+     Opt<-list()    
+     #initialze a bString array  
+     bStrings<-list()
+     simRes<-list()
+ 
+ 
+     T1opt<-gaBinaryT1(CNOlist=CNOlist,
+                   model=model,
+                   stallGenMax=stallGenMax,
+                   sizeFac=sizeFac,
+                   NAFac=NAFac,
+                   popSize=popSize,
+                   pMutation=pMutation,
+                   maxTime=maxTime,
+                   maxGens=maxGens,
+                   selPress=selPress,
+                   elitism=elitism,
+                   relTol=relTol,
+                   verbose=verbose,
+                   priorBitString=priorBitString)
+ 
+     Opt[[1]]<-T1opt
+     simT1<-simulateTN(CNOlist=CNOlist, model=model, bStrings=list(T1opt$bString))
+     simRes[[1]]<-simT1
+     bStrings[[1]] = T1opt$bString
+ 
+     if (length(CNOlist@signals)>2){
+         for(i in 3:length(CNOlist@signals)){
+             Opt[[i-1]]<-gaBinaryTN(CNOlist=CNOlist,
+                         model=model,
+                         bStrings=bStrings,
+                         stallGenMax=stallGenMax,
+                         maxTime=maxTime,
+                         sizeFac=sizeFac,
+                         NAFac=NAFac,
+                         popSize=popSize,
+                         pMutation=pMutation,
+                         maxGens=maxGens,
+                         selPress=selPress,
+                         elitism=elitism,
+                         relTol=relTol,
+                         verbose=verbose,
+                         priorBitString=priorBitString)
+ 
+             bStrings[[i-1]] = Opt[[i-1]]$bString
+ 
+             simRes[[i]]<-simulateTN(CNOlist,model,bStrings)
+         }
+     }   
+     return(list(bStrings=bStrings, Opt=Opt, simRes=simRes))
+ }
> 
> 
> 
> library(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> 
> # one steady state
> data(CNOlistToy, package="CellNOptR")
> cnolist = CNOlist(CNOlistToy)
> data(ToyModel, package="CellNOptR")
> results = manySteadyStates(cnolist, ToyModel)
> print(results$bStrings)
[[1]]
 [1] 1 1 1 1 1 0 1 0 1 1 1 1 0 1 1 0

> 
> # two steady state
> data(CNOlistToy2, package="CellNOptR")
> cnolist = CNOlist(CNOlistToy2)
> data(ToyModel2, package="CellNOptR")
> results = manySteadyStates(cnolist, ToyModel2)
> print(results$bStrings)
[[1]]
 [1] 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 0 0

[[2]]
[1] 0 0 1

> 
> # 3 steady state
> ToyModel3 = readSIF(system.file("ToyModelT3/ToyModelT3.sif", package="CellNOptR"))
> cnolist = CNOlist(system.file("ToyModelT3/ToyDataT3.csv", package="CellNOptR"))
> results = manySteadyStates(cnolist, ToyModel3)
> print(results$bStrings)
[[1]]
 [1] 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 0

[[2]]
[1] 0 0 0

[[3]]
[1] 0 0 0

> 
> 
> 
> proc.time()
   user  system elapsed 
  5.458   0.169   5.617 

CellNOptR.Rcheck/tests/test_priorBitString.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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.

> #
> #  This file is part of the CNO software
> #
> #  Copyright (c) 2011-2012 - EBI
> #
> #  File author(s): CNO developers (cno-dev@ebi.ac.uk)
> #
> #  Distributed under the GPLv2 License.
> #  See accompanying file LICENSE.txt or copy at
> #      http://www.gnu.org/licenses/gpl-2.0.html
> #
> #  CNO website: http://www.ebi.ac.uk/saezrodriguez/software.html
> #
> ##############################################################################
> # $Id$
> # test if the priorBitString is used correctly in gaBinaryT1DO NOT MODIFY please (TC, June 2012)
> 
> library(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> 
> 
> # Load T1 and T2 data. Only T1 is used here below.
> data(ToyModel, package="CellNOptR")
> data(CNOlistToy, package="CellNOptR")
> cnolist = CNOlistToy
> pknmodel = ToyModel
> 
> # preprocessing
> model = preprocessing(cnolist, pknmodel)
[1] "The following species are measured: Akt, Hsp27, NFkB, Erk, p90RSK, Jnk, cJun"
[1] "The following species are stimulated: EGF, TNFa"
[1] "The following species are inhibited: Raf, PI3K"
[1] "The following species are not observable and/or not controllable: "
> 
> # computeScoreT1 with init string made of ones
> initBstring<-rep(1,length(model$reacID))
> 
> 
> 
> priorBitString = rep(NA, length(model$reacID))
> priorBitString[1] = 0
> priorBitString[2] = 0
> priorBitString[3] = 0
> priorBitString[4] = 0
> 
> # Second, you call the gaBinaryT1 function by providing the priorBitString
> # argument:
> ToyT1opt<-gaBinaryT1(CNOlist=CNOlistToy, model=model,
+     initBstring=initBstring, maxGens=10, popSize=5,
+     verbose=FALSE, priorBitString=priorBitString)
> 
> 
> for (x in ToyT1opt$results[,7]){
+      x = strsplit(x ,",")[[1]]
+      if (as.numeric(x[[1]]) != 0 ){ stop("first element must be 0")}
+      if (as.numeric(x[[2]]) != 0 ){ stop("second element must be 0")}
+      if (as.numeric(x[[3]]) != 0 ){ stop("tirdh element must be 0")}
+      if (as.numeric(x[[4]]) != 0 ){ stop("fourth element must be 0")}
+ }
> 
> 
> 
> proc.time()
   user  system elapsed 
  1.869   0.126   1.984 

CellNOptR.Rcheck/tests/test_simulateTN.Rout


R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

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.

> #
> #  This file is part of the CNO software
> #
> #  Copyright (c) 2011-2012 - EBI
> #
> #  File author(s): CNO developers (cno-dev@ebi.ac.uk)
> #
> #  Distributed under the GPLv2 License.
> #  See accompanying file LICENSE.txt or copy at
> #      http://www.gnu.org/licenses/gpl-2.0.html
> #
> #  CNO website: http://www.ebi.ac.uk/saezrodriguez/software.html
> #
> ##############################################################################
> # $Id$
> # This test runs T3 data set to compute the scores (must be zero), and run
> # cutAndPlot plot on each time points.
> 
> # DO NOT MODIFY please (TC, June 2012)
> 
> library(CellNOptR)
Loading required package: RBGL
Loading required package: graph
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

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

    IQR, mad, sd, var, xtabs

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

    Filter, Find, Map, Position, Reduce, anyDuplicated, aperm, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, table, tapply,
    union, unique, unsplit, which.max, which.min

Loading required package: RCurl
Loading required package: Rgraphviz
Loading required package: grid
Loading required package: XML

Attaching package: 'XML'

The following object is masked from 'package:graph':

    addNode

Loading required package: ggplot2
Loading required package: rmarkdown
> pknmodel = readSIF(system.file("ToyModelT3/ToyModelT3.sif", package="CellNOptR"))
> cnolist = CNOlist(system.file("ToyModelT3/ToyDataT3.csv",  package="CellNOptR"))
> 
> model = preprocessing(cnolist, pknmodel)
[1] "The following species are measured: AKT, MEK, ERK, P38, JNK, NFKB"
[1] "The following species are stimulated: TGFa, TNFa"
[1] "The following species are inhibited: PI3K, MEK"
[1] "The following species are not observable and/or not controllable: "
> 
> # computeScoreT1 with init string made of ones
> verbose = FALSE
> initBstring<-rep(1,length(model$reacID))
> score = computeScoreT1(cnolist, model,bString=rep(1,length(model$reacID)))
> bestBS = c(1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0,0)
> bestBS2 <- c(0,0,0,0,0,0,1) # given by running gaBinaryTN
> bestBS3 <- c(0,0,1,0,0,0) # given by running gaBinaryTN
> 
> 
> SimT1<-simulateTN(CNOlist=cnolist, model=model, bString=list(bestBS))
> SimT2<-simulateTN(CNOlist=cnolist, model=model, bStrings=list(bestBS, bestBS2))
> SimT3<-simulateTN(CNOlist=cnolist, model=model, bStrings=list(bestBS, bestBS2, bestBS3))
> 
> score1 = computeScoreT1(cnolist, model, bString=bestBS)
> score2 = computeScoreTN(cnolist, model, bStrings=list(bestBS,bestBS2))
> score3 = computeScoreTN(cnolist, model, bStrings=list(bestBS,bestBS2, bestBS3))
> 
> print(score1)
[1] 4.545455e-05
> print(score2)
[1] 5.454545e-05
> print(score3)
[1] 6.363636e-05
> if (score1>0.01 || score2>0.024){
+    stop("errore")
+ }
> cutAndPlot(cnolist, model,bStrings=list(bestBS),plotPDF=TRUE, tag="test1")
$filenames
$filenames[[1]]
[1] "test1_SimResultsT1_1_.pdf"


$mse
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults
$simResults[[1]]
$simResults[[1]]$t0
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults[[1]]$t1
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    1
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    1
[6,]    1    0    0    1    1    1
[7,]    0    0    0    0    0    0



> cutAndPlot(cnolist, model,bStrings=list(bestBS,bestBS2),plotPDF=TRUE, tag="test2")
$mse
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$filenames
list()

$simResults
$simResults[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults[[2]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    1
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    1
[6,]    1    0    0    1    1    1
[7,]    0    0    0    0    0    0

$simResults[[3]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    0
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    0
[6,]    1    0    0    1    1    0
[7,]    0    0    0    0    0    0


> cutAndPlot(cnolist, model, bStrings=list(bestBS,bestBS2,bestBS3),plotPDF=TRUE, tag="test3")
$mse
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$filenames
list()

$simResults
$simResults[[1]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    0    0    0    0    0
[2,]    0    0    0    0    0    0
[3,]    0    0    0    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    0    0    0
[6,]    0    0    0    0    0    0
[7,]    0    0    0    0    0    0

$simResults[[2]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    1
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    1
[6,]    1    0    0    1    1    1
[7,]    0    0    0    0    0    0

$simResults[[3]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    1    1    1    0    1    0
[2,]    1    1    1    1    1    0
[3,]    0    1    1    0    0    0
[4,]    1    0    0    0    1    0
[5,]    0    0    0    1    0    0
[6,]    1    0    0    1    1    0
[7,]    0    0    0    0    0    0

$simResults[[4]]
     [,1] [,2] [,3] [,4] [,5] [,6]
[1,]    0    1    1    0    0    0
[2,]    0    0    0    1    0    1
[3,]    0    1    1    0    0    0
[4,]    0    0    0    0    0    0
[5,]    0    0    0    1    0    1
[6,]    0    0    0    1    0    1
[7,]    0    0    0    0    0    0


> 
> 
> proc.time()
   user  system elapsed 
  2.514   0.126   2.629 

Example timings

CellNOptR.Rcheck/CellNOptR-Ex.timings

nameusersystemelapsed
CNORbool0.9320.0080.940
CNORwrap0.5430.0560.601
CNOdata000
CNOlist-class0.0680.0040.072
CNOlist-methods0.0520.0000.052
CellNOptR-package2.2320.0362.268
buildBitString0.0010.0000.001
build_sif_table_from_rule1.3370.0281.364
checkSignals0.0050.0000.004
compressModel0.0050.0000.005
computeScoreT10.0120.0000.012
computeScoreTN0.0200.0000.021
crossInhibitedData0.0040.0000.004
crossvalidateBoolean1.3790.0191.399
cutAndPlot0.1690.0000.169
cutAndPlotResultsT10.2120.0000.211
cutAndPlotResultsTN0.3100.0080.318
cutCNOlist0.0040.0000.004
cutModel0.0020.0000.002
cutNONC0.0070.0000.007
defaultParameters0.0030.0000.003
exhaustive0.4620.0230.485
expandGates0.0110.0000.011
findNONC0.0070.0000.007
gaBinaryT10.1650.0040.169
gaBinaryTN0.1060.0000.106
getFit0.0030.0040.007
graph2sif0.0120.0040.017
ilpBinaryT10.1030.0000.104
ilpBinaryT20.1060.0000.106
ilpBinaryTN0.0970.0000.097
indexFinder0.0040.0000.004
makeCNOlist0.0070.0040.012
model2igraph0.0750.0000.075
model2sif0.0030.0000.003
normaliseCNOlist0.0050.0000.006
plot-methods0.0670.0030.071
plotCNOlist0.0600.0040.063
plotCNOlist22.1220.0052.126
plotCNOlistLarge0.1480.0040.153
plotCNOlistLargePDF0.1580.0000.158
plotCNOlistPDF0.0610.0120.072
plotFit0.0330.0110.045
plotModel0.1880.0080.196
plotOptimResults0.0770.0040.081
plotOptimResultsPDF0.090.000.09
plotOptimResultsPan0.1650.0000.165
prep4sim0.0030.0000.002
preprocessing0.0070.0000.006
randomizeCNOlist0.0000.0010.001
readBND000
readMIDAS0.0070.0060.012
readSBMLQual000
readSIF0.0000.0030.004
residualError0.0020.0010.003
sif2graph0.0100.0000.011
simulateT10.0030.0040.008
simulateTN0.0050.0000.005
simulatorT00.0020.0030.005
simulatorT10.0060.0010.005
simulatorT20.0000.0020.002
simulatorTN0.0040.0010.004
toSBML0.0040.0030.008
writeDot0.0350.0010.035
writeMIDAS0.0140.0040.018
writeNetwork0.0360.0000.035
writeReport0.0150.0030.019
writeSIF0.0030.0000.004
writeScaffold0.0250.0040.029