##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Resources/bin/R CMD check --install=check:findIPs.install-out.txt --library=/Library/Frameworks/R.framework/Resources/library --no-vignettes --timings findIPs_1.0.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/Users/biocbuild/bbs-3.19-bioc-mac-arm64/meat/findIPs.Rcheck’
* using R version 4.4.0 (2024-04-24)
* using platform: aarch64-apple-darwin20
* R was compiled by
    Apple clang version 14.0.0 (clang-1400.0.29.202)
    GNU Fortran (GCC) 12.2.0
* running under: macOS Ventura 13.6.5
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘findIPs/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘findIPs’ version ‘1.0.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 ‘findIPs’ 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 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 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
Examples with CPU (user + system) or elapsed time > 5s
                  user system elapsed
findIPs          8.409  0.207   8.627
plotRankScatters 6.282  0.180   6.462
sumRanks         5.986  0.181   6.169
getdrop1ranks    5.935  0.174   6.111
plotIPs          5.901  0.135   6.046
* 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 running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: OK

##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Resources/bin/R CMD INSTALL findIPs
###
##############################################################################
##############################################################################


* installing to library ‘/Library/Frameworks/R.framework/Versions/4.4-arm64/Resources/library’
* installing *source* package ‘findIPs’ ...
** 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 (findIPs)

R version 4.4.0 (2024-04-24) -- "Puppy Cup"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: aarch64-apple-darwin20

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(findIPs)
> 
> # get data
> data(miller05)
> X <- miller05$X
> y <- miller05$y
> surv <- miller05$surv
> 
> # save expected results
> 
> # obj <- getdrop1ranks(X, y,
> #                      fun = "t.test",
> #                      decreasing = FALSE,
> #                      topN = 100)
> #
> # expected.t.adaptive <- sumRanks(origRank = obj$origRank,
> #                                 drop1Rank = obj$drop1Rank,
> #                                 topN = 100,
> #                                 method = "adaptive")
> #
> # expected.t.unweighted <- sumRanks(origRank = obj$origRank,
> #                                   drop1Rank = obj$drop1Rank,
> #                                   topN = 100,
> #                                   method = "unweighted")
> #
> # expected.t.weighted <- sumRanks(origRank = obj$origRank,
> #                                 drop1Rank = obj$drop1Rank,
> #                                 topN = 100,
> #                                 method = "weightedSpearman")
> #
> # expected.t.adaptive.ipsr <- findIPs(X, y,
> #                                     fun = "t.test",
> #                                     decreasing = FALSE,
> #                                     topN = 100,
> #                                     method = "adaptive")
> #
> # expected.cox.adaptive.ipsr <- findIPs(X, surv,
> #                                       fun = "cox",
> #                                       decreasing = FALSE,
> #                                       topN = 100,
> #                                       method = "adaptive")
> #
> # save(list = c("expected.t.adaptive", "expected.t.unweighted",
> #               "expected.t.weighted", "expected.t.adaptive.ipsr",
> #               "expected.cox.adaptive.ipsr"),
> #      file = "./expectedResults/expectedResults.RData")
> 
> # get observed results
> 
> load("./expectedResults/expectedResults.RData")
> 
> obj <- getdrop1ranks(X, y,
+                      fun = "t.test",
+                      decreasing = FALSE,
+                      topN = 100)
> 
> observed.t.adaptive <- sumRanks(origRank = obj$origRank,
+                                 drop1Rank = obj$drop1Rank,
+                                 topN = 100,
+                                 method = "adaptive")
> 
> observed.t.unweighted <- sumRanks(origRank = obj$origRank,
+                                   drop1Rank = obj$drop1Rank,
+                                   topN = 100,
+                                   method = "unweighted")
> 
> observed.t.weighted <- sumRanks(origRank = obj$origRank,
+                                 drop1Rank = obj$drop1Rank,
+                                 topN = 100,
+                                 method = "weightedSpearman")
> 
> observed.t.adaptive.ipsr <- findIPs(X, y,
+                                     fun = "t.test",
+                                     decreasing = FALSE,
+                                     topN = 100,
+                                     method = "adaptive")
> 
> observed.cox.adaptive.ipsr <- findIPs(X, surv,
+                                       fun = "cox",
+                                       decreasing = FALSE,
+                                       topN = 100,
+                                       method = "adaptive")
> 
> test_that("test getdrop1ranks and sumRanks",{
+     expect_equal(expected.t.adaptive, observed.t.adaptive)
+     expect_equal(expected.t.unweighted, observed.t.unweighted)
+     expect_equal(expected.t.weighted, expected.t.weighted)
+ })
Test passed 😀
> 
> test_that("stepwise(getdrop1ranks and sumRanks) and one-step procedure",{
+     expect_equal(observed.t.adaptive.ipsr, observed.t.adaptive)
+ })
Test passed 🥇
> 
> test_that("test ipsr",{
+     expect_equal(expected.t.adaptive.ipsr, observed.t.adaptive.ipsr)
+ })
Test passed 🌈
> 
> test_that("test ipsr for survival outcomes (ranked by univariate cox)",{
+     expect_equal(expected.cox.adaptive.ipsr, observed.cox.adaptive.ipsr)
+ })
Test passed 🎊
> 
> 
> 
> 
> 
> proc.time()
   user  system elapsed 
 37.344   0.961  38.322