##############################################################################
##############################################################################
###
### Running command:
###
###   D:\biocbuild\bbs-3.15-bioc\R\bin\R.exe CMD check --no-multiarch --install=check:qsmooth.install-out.txt --library=D:\biocbuild\bbs-3.15-bioc\R\library --no-vignettes --timings qsmooth_1.11.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory 'D:/biocbuild/bbs-3.15-bioc/meat/qsmooth.Rcheck'
* using R Under development (unstable) (2021-11-21 r81221)
* using platform: x86_64-w64-mingw32 (64-bit)
* using session charset: ISO8859-1
* using option '--no-vignettes'
* checking for file 'qsmooth/DESCRIPTION' ... OK
* this is package 'qsmooth' version '1.11.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 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 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 ... 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 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 WARNING
See
  'D:/biocbuild/bbs-3.15-bioc/meat/qsmooth.Rcheck/00check.log'
for details.

##############################################################################
##############################################################################
###
### Running command:
###
###   D:\biocbuild\bbs-3.15-bioc\R\bin\R.exe CMD INSTALL qsmooth
###
##############################################################################
##############################################################################


* installing to library 'D:/biocbuild/bbs-3.15-bioc/R/library'
* installing *source* package 'qsmooth' ...
** using staged installation
** R
** data
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
  converting help for package 'qsmooth'
    finding HTML links ... done
    qsmooth-class                           html  
    qsmooth                                 html  
    qsmoothData                             html  
    qsmoothGC                               html  
    qsmoothPlotWeights                      html  
    qsmoothWeights                          html  
    qstats                                  html  
** 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)
Making 'packages.html' ...Warning in packageDescription(i, lib.loc = lib, fields = "Title", encoding = "UTF-8") :
  DESCRIPTION file of package 'omicsPrint' is missing or broken
 done

R Under development (unstable) (2021-11-21 r81221) -- "Unsuffered Consequences"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (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)
> 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 
   7.43    0.48    7.92