##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.21-bioc/R/bin/R CMD check --install=check:qsmooth.install-out.txt --library=/home/biocbuild/bbs-3.21-bioc/R/site-library --timings qsmooth_1.23.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/home/biocbuild/bbs-3.21-bioc/meat/qsmooth.Rcheck’
* using R Under development (unstable) (2024-10-21 r87258)
* using platform: x86_64-pc-linux-gnu
* R was compiled by
    gcc (Ubuntu 13.2.0-23ubuntu4) 13.2.0
    GNU Fortran (Ubuntu 13.2.0-23ubuntu4) 13.2.0
* running under: Ubuntu 24.04.1 LTS
* using session charset: UTF-8
* checking for file ‘qsmooth/DESCRIPTION’ ... OK
* this is package ‘qsmooth’ version ‘1.23.0’
* package encoding: UTF-8
* 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 ‘qsmooth’ 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 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 ... 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 ... WARNING
Undocumented data sets:
  ‘gc’
All user-level objects in a package should have documentation entries.
See chapter ‘Writing R documentation files’ in the ‘Writing R
Extensions’ manual.
* 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 files in ‘vignettes’ ... OK
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.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: 1 WARNING
See
  ‘/home/biocbuild/bbs-3.21-bioc/meat/qsmooth.Rcheck/00check.log’
for details.

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/biocbuild/bbs-3.21-bioc/R/bin/R CMD INSTALL qsmooth
###
##############################################################################
##############################################################################


* installing to library ‘/home/biocbuild/bbs-3.21-bioc/R/site-library’
* installing *source* package ‘qsmooth’ ...
** using staged installation
** 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
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (qsmooth)

R Under development (unstable) (2024-10-21 r87258) -- "Unsuffered Consequences"
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(testthat)
> context("checking the qsmooth function")
> 
> library(qsmooth)
> 
> test_that("checking dimensions of qsmooth object", {
+   n_genes <- 1000
+   n_samples <- 10
+   set.seed(1234)
+   x <- matrix(rnorm(n_genes*n_samples), n_genes, n_samples)
+   group_factor <- rep(c(1,2),each=5)
+   qs_norm <- qsmooth(object = x, 
+                     group_factor = group_factor)
+   
+   expect_equal(length(qsmoothWeights(qs_norm)), n_genes)
+   expect_equal(nrow(qsmoothData(qs_norm)), n_genes)
+   expect_equal(ncol(qsmoothData(qs_norm)), n_samples)
+ })
Test passed 🥇
> 
> test_that("checking qsmooth normalized data", {
+   n_genes <- 1000
+   n_samples <- 10
+   set.seed(1234)
+   x <- matrix(rnorm(n_genes*n_samples), n_genes, n_samples)
+   group_factor <- rep(c(1,2),each=5)
+   qs_norm <- qsmooth(object = x, group_factor = group_factor)
+   expect_equal(qsmoothData(qs_norm)[1,1], -1.25856, tolerance = .0001)
+   expect_equal(qsmoothWeights(qs_norm)[1], 0.97495, tolerance = .0001)
+ })
Test passed 🥇
> 
> 
> test_that("checking qsmoothGC normalized data", {
+   n_genes <- 1000
+   n_samples <- 10
+   set.seed(1234)
+   x <- matrix(rpois(n_genes*n_samples, lambda=12), n_genes, n_samples)
+   group_factor <- rep(c(1,2),each=5)
+   gc <- runif(n=n_genes, min=0.2, max=0.9)
+   ## one group should be same as qsmooth
+   qs_norm <- qsmooth(object = x, group_factor = group_factor)
+   qs_normGC <- qsmoothGC(object = x, 
+                          gc = gc, 
+                          group_factor = group_factor, 
+                          nGroups = 1,
+                          round = FALSE)
+   expect_equal(qsmoothData(qs_norm), qsmoothData(qs_normGC), tolerance = .001)
+ })
Test passed 🥇
> 
> proc.time()
   user  system elapsed 
 10.610   0.560  11.174