##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.14-bioc/R/bin/R CMD check --install=check:nuCpos.install-out.txt --library=/home/biocbuild/bbs-3.14-bioc/R/library --no-vignettes --timings nuCpos_1.12.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.14-bioc/meat/nuCpos.Rcheck’
* using R version 4.1.3 (2022-03-10)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘nuCpos/DESCRIPTION’ ... OK
* this is package ‘nuCpos’ version ‘1.12.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 ‘nuCpos’ 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 R/sysdata.rda ... NOTE
  
  Note: significantly better compression could be obtained
        by using R CMD build --resave-data
              old_size new_size compress
  sysdata.rda    824Kb    495Kb    bzip2
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking compiled code ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘test_HBA.R’
  Running ‘test_localHBA.R’
  Running ‘test_mutNuCpos.R’
  Running ‘test_predNuCposActLikePredNuPoP.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.14-bioc/meat/nuCpos.Rcheck/00check.log’
for details.

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.14-bioc/R/bin/R CMD INSTALL nuCpos
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/bbs-3.14-bioc/R/library’
* installing *source* package ‘nuCpos’ ...
** using staged installation
** libs
gfortran -fno-optimize-sibling-calls  -fpic  -g -O2  -c  HBA_3.f90 -o HBA_3.o
gcc -I"/home/biocbuild/bbs-3.14-bioc/R/include" -DNDEBUG   -I/usr/local/include   -fpic  -g -O2  -Wall -c R_init_nuCpos.c -o R_init_nuCpos.o
gfortran -fno-optimize-sibling-calls  -fpic  -g -O2  -c  localHBA_3.f90 -o localHBA_3.o
gfortran -fno-optimize-sibling-calls  -fpic  -g -O2  -c  nuCpos2_1.f90 -o nuCpos2_1.o
gfortran -fno-optimize-sibling-calls  -fpic  -g -O2  -c  nuCpos2_2.f90 -o nuCpos2_2.o
gfortran -fno-optimize-sibling-calls  -fpic  -g -O2  -c  nuCpos_1.f90 -o nuCpos_1.o
gfortran -fno-optimize-sibling-calls  -fpic  -g -O2  -c  nuCpos_2.f90 -o nuCpos_2.o
gcc -shared -L/home/biocbuild/bbs-3.14-bioc/R/lib -L/usr/local/lib -o nuCpos.so HBA_3.o R_init_nuCpos.o localHBA_3.o nuCpos2_1.o nuCpos2_2.o nuCpos_1.o nuCpos_2.o -lgfortran -lm -lquadmath -L/home/biocbuild/bbs-3.14-bioc/R/lib -lR
installing to /home/biocbuild/bbs-3.14-bioc/R/library/00LOCK-nuCpos/00new/nuCpos/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 (nuCpos)

R version 4.1.3 (2022-03-10) -- "One Push-Up"
Copyright (C) 2022 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.

> test_HBA <- function(){
+     load(system.file("extdata","inseq.RData",package="nuCpos"))
+     load(system.file("extdata","INSEQ_DNAString.RData",package="nuCpos"))
+     inseq.N <- gsub(pattern = "A", replacement = "N", inseq)
+     mm.HBA <- -5.108546
+     sc.HBA <- -2.460025
+     sp.HBA <- -2.627370
+     expect_equal(unname(HBA(inseq, species = "mm", silent = TRUE)), 
+         mm.HBA, tolerance = 1.0e-6)
+     expect_equal(unname(HBA(inseq, species = "sc", silent = TRUE)), 
+         sc.HBA, tolerance = 1.0e-6)
+     expect_equal(unname(HBA(inseq, species = "sp", silent = TRUE)), 
+         sp.HBA, tolerance = 1.0e-6)
+     expect_equal(unname(HBA(INSEQ, species = "mm", silent = TRUE)), 
+         mm.HBA, tolerance = 1.0e-6)
+     expect_equal(unname(HBA(INSEQ, species = "sc", silent = TRUE)), 
+         sc.HBA, tolerance = 1.0e-6)
+     expect_equal(unname(HBA(INSEQ, species = "sp", silent = TRUE)), 
+         sp.HBA, tolerance = 1.0e-6)
+     expect_true(is.na(HBA("AAA", species = "mm", silent = TRUE)))
+     expect_true(is.na(HBA(123, species = "mm", silent = TRUE)))
+     expect_true(is.na(HBA(inseq.N, species = "mm", silent = TRUE)))
+ }
> 
> proc.time()
   user  system elapsed 
  0.147   0.029   0.160 

R version 4.1.3 (2022-03-10) -- "One Push-Up"
Copyright (C) 2022 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.

> test_localHBA <- function(){
+     load(system.file("extdata","inseq.RData",package="nuCpos"))
+     load(system.file("extdata","INSEQ_DNAString.RData",package="nuCpos"))
+     inseq.N <- gsub(pattern = "A", replacement = "N", inseq)
+     mm.lHBA <- c(-1.26144039, -1.60878614, 0.04168163, 
+         0.67028283, 0.64609413, -2.04965343, -2.87359702, 
+         -0.23010702, -0.45807823, -0.46043330, -0.45175477, 
+         0.02487367, -0.30991794)
+     sc.lHBA <- c(-1.56140949, -1.62502354, 0.48885990, 
+         2.37615568, 2.90458625, -1.35195919, -3.13228907, 
+         -0.32208031, 0.27650871, 0.01922002, 0.49787625, 
+         -0.17151500, -1.27186158)
+     sp.lHBA <- c(-1.566757163, -2.249651890, 1.188983606,
+         1.808008192, 2.304915648, -0.290338951, -1.741081053, 
+         -0.093952092, 0.119058916, -1.335654721, -0.001721381, 
+         0.244317796, -0.968842314)
+     expect_equal(unname(localHBA(inseq, species = "mm", silent = TRUE)), 
+         mm.lHBA, tolerance = 1.0e-6)
+     expect_equal(unname(localHBA(inseq, species = "sc", silent = TRUE)), 
+         sc.lHBA, tolerance = 1.0e-6)
+     expect_equal(unname(localHBA(inseq, species = "sp", silent = TRUE)), 
+         sp.lHBA, tolerance = 1.0e-6)
+     expect_equal(unname(localHBA(INSEQ, species = "mm", silent = TRUE)), 
+         mm.lHBA, tolerance = 1.0e-6)
+     expect_equal(unname(localHBA(INSEQ, species = "sc", silent = TRUE)), 
+         sc.lHBA, tolerance = 1.0e-6)
+     expect_equal(unname(localHBA(INSEQ, species = "sp", silent = TRUE)), 
+         sp.lHBA, tolerance = 1.0e-6)
+     expect_true(is.na(localHBA("AAA", species = "mm", silent = TRUE)))
+     expect_true(is.na(localHBA(123, species = "mm", silent = TRUE)))
+     expect_true(is.na(localHBA(inseq.N, species = "mm", silent = TRUE)))
+ }
> 
> proc.time()
   user  system elapsed 
  0.157   0.022   0.163 

R version 4.1.3 (2022-03-10) -- "One Push-Up"
Copyright (C) 2022 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.

> test_mutNuCpos <- function(){
+     TALS <- paste(scan(file = system.file("extdata", "TALS.fasta", 
+         package="nuCpos"), what = character(), skip = 1), sep = "", 
+         collapse = "")
+     TTAGGGx12 <- paste(scan(file = system.file("extdata", 
+         "TTAGGGx12.fasta", package="nuCpos"), what = character(), 
+         skip = 1), sep = "", collapse = "")
+     results <- mutNuCpos(TALS, site = 1464, ins= TTAGGGx12, species="sc", 
+         prob.dyad = TRUE, smoothHBA=TRUE, plot.window = 601, 
+         ylim.HBA = c(-11, 0), 
+         annotation = data.frame(name = "alpha2", 
+         color = "purple", left = 1534, right = 1559), full = TRUE)
+     expect_equal(results$results$pstart[101], 0.0005697254, tolerance = 1.0e-8)
+     expect_equal(results$results$nucoccup[101], 0.9874718, tolerance = 1.0e-6)
+     expect_equal(results$results$viterbi[101], 1)
+     expect_equal(results$results$affinity[101], -0.89849, tolerance = 1.0e-5)
+     expect_equal(results$results$pos[101], -3673)
+ }
> 
> proc.time()
   user  system elapsed 
  0.162   0.022   0.170 

R version 4.1.3 (2022-03-10) -- "One Push-Up"
Copyright (C) 2022 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.

> test_predNuCposActLikePredNuPoP <- function(){
+     predNuCposActLikePredNuPoP(system.file("extdata", "test.seq", 
+         package="nuCpos"), species="mm", smoothHBA=FALSE, 
+         std=FALSE)
+     results <- read.table(file = "test.seq_Prediction4.txt", skip = 1)
+     expect_equal(results$V1[101], 101)
+     expect_equal(results$V2[101], 0.001)
+     expect_equal(results$V3[101], 0.742)
+     expect_equal(results$V4[101], 0)
+     expect_equal(results$V5[101], -2.303)
+ }
> 
> proc.time()
   user  system elapsed 
  0.150   0.031   0.164