This page was generated on 2018-04-12 13:07:10 -0400 (Thu, 12 Apr 2018).
DNAcopy 1.52.0 Venkatraman E. Seshan
Snapshot Date: 2018-04-11 16:45:18 -0400 (Wed, 11 Apr 2018) |
URL: https://git.bioconductor.org/packages/DNAcopy |
Branch: RELEASE_3_6 |
Last Commit: 2632fbe |
Last Changed Date: 2017-10-30 12:39:02 -0400 (Mon, 30 Oct 2017) |
| malbec1 | Linux (Ubuntu 16.04.1 LTS) / x86_64 | OK | OK | [ OK ] | | ![UNNEEDED, same version exists in internal repository UNNEEDED, same version exists in internal repository](../120px-Blue_Light_Icon.svg.png) |
tokay1 | Windows Server 2012 R2 Standard / x64 | OK | OK | OK | OK | ![UNNEEDED, same version exists in internal repository UNNEEDED, same version exists in internal repository](../120px-Blue_Light_Icon.svg.png) |
veracruz1 | OS X 10.11.6 El Capitan / x86_64 | OK | OK | OK | OK | ![UNNEEDED, same version exists in internal repository UNNEEDED, same version exists in internal repository](../120px-Blue_Light_Icon.svg.png) |
R version 3.4.4 (2018-03-15) -- "Someone to Lean On"
Copyright (C) 2018 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.
> ######################################################################
> # Type: Redundancy test
> # Created by: Henrik Bengtsson <hb@stat.berkeley.edu>
> # Created on: 2009-06-10
> ######################################################################
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Startup
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> library("DNAcopy")
>
> # Record current random seed
> sample(1) # Assert that a random seed exists
[1] 1
> oldSeed <- .Random.seed
> # Alway use the same random seed
> set.seed(0xbeef)
>
> # Tolerance (maybe decrease?)
> tol <- .Machine$double.eps^0.5
>
> print(sessionInfo())
R version 3.4.4 (2018-03-15)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 16.04.4 LTS
Matrix products: default
BLAS: /home/biocbuild/bbs-3.6-bioc/R/lib/libRblas.so
LAPACK: /home/biocbuild/bbs-3.6-bioc/R/lib/libRlapack.so
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_US.UTF-8 LC_COLLATE=C
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
[7] LC_PAPER=en_US.UTF-8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] DNAcopy_1.52.0
loaded via a namespace (and not attached):
[1] compiler_3.4.4
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Simulating copy-number data
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Number of loci
> J <- 1000
>
> x <- sort(runif(J, min=0, max=1000))
> w <- runif(J)
> mu <- double(J)
> jj <- (200 <= x & x < 300)
> mu[jj] <- mu[jj] + 1
> jj <- (650 <= x & x < 800)
> mu[jj] <- mu[jj] - 1
> w[jj] <- 0.001
> eps <- rnorm(J, sd=1/2)
> y <- mu + eps
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Setting up a raw CNA object
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> cnR <- CNA(
+ genomdat = y,
+ chrom = rep(1, times=J),
+ maploc = x,
+ data.type = "logratio",
+ sampleid = "SampleA"
+ )
> print(cnR)
Number of Samples 1
Number of Probes 1000
Data Type logratio
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Test: Non-weighted segmentation
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> t <- system.time({
+ fitR <- segment(cnR, verbose=1)
+ })
Analyzing: SampleA
> cat("Processing time:\n")
Processing time:
> print(t)
user system elapsed
0.076 0.000 0.076
> print(fitR)
Call:
segment(x = cnR, verbose = 1)
ID chrom loc.start loc.end num.mark seg.mean
1 SampleA 1 1.368577 199.0840 209 0.0256
2 SampleA 1 201.604291 301.0669 105 1.0099
3 SampleA 1 303.775112 647.4270 337 -0.0084
4 SampleA 1 650.741212 798.9718 138 -0.9792
5 SampleA 1 800.302447 999.3290 211 -0.0289
>
> # Expected results
> # These were obtained by dput(fitR$output) using DNAcopy v1.19.0
> truth <- structure(list(ID = c("SampleA", "SampleA", "SampleA", "SampleA",
+ "SampleA"), chrom = c(1, 1, 1, 1, 1), loc.start = c(1.36857712641358,
+ 201.604291098192, 303.775111911818, 650.741211604327, 800.302447052673
+ ), loc.end = c(199.083976913244, 301.066882908344, 647.42697100155,
+ 798.971758922562, 999.329038895667), num.mark = c(209, 105, 337,
+ 138, 211), seg.mean = c(0.0256, 1.0099, -0.0084, -0.9792, -0.0289
+ )), .Names = c("ID", "chrom", "loc.start", "loc.end", "num.mark",
+ "seg.mean"), row.names = c(NA, -5L), class = "data.frame")
>
> stopifnot(all.equal(fitR$output, truth, tolerance=tol))
>
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Test: Weighted segmentation
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> t <- system.time({
+ fitR <- segment(cnR, weights=w, verbose=1)
+ })
Analyzing: SampleA
> cat("Processing time:\n")
Processing time:
> print(t)
user system elapsed
0.272 0.000 0.275
> print(fitR)
Call:
segment(x = cnR, weights = w, verbose = 1)
ID chrom loc.start loc.end num.mark seg.mean
1 SampleA 1 1.368577 199.0840 209 0.0259
2 SampleA 1 201.604291 301.0669 105 1.0004
3 SampleA 1 303.775112 999.3290 686 -0.0233
>
> # Expected results
> # These were obtained by dput(fitR$output) using DNAcopy v1.19.0
> truth <- structure(list(ID = c("SampleA", "SampleA", "SampleA"), chrom = c(1,
+ 1, 1), loc.start = c(1.36857712641358, 201.604291098192, 303.775111911818
+ ), loc.end = c(199.083976913244, 301.066882908344, 999.329038895667
+ ), num.mark = c(209, 105, 686), seg.mean = c(0.0259, 1.0004,
+ -0.0233)), .Names = c("ID", "chrom", "loc.start", "loc.end",
+ "num.mark", "seg.mean"), row.names = c(NA, -3L), class = "data.frame")
>
> stopifnot(all.equal(fitR$output, truth, tolerance=tol))
>
>
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Cleanup
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Reset to previous random seed
> .Random.seed <- oldSeed
>
> print(sessionInfo())
R version 3.4.4 (2018-03-15)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 16.04.4 LTS
Matrix products: default
BLAS: /home/biocbuild/bbs-3.6-bioc/R/lib/libRblas.so
LAPACK: /home/biocbuild/bbs-3.6-bioc/R/lib/libRlapack.so
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_US.UTF-8 LC_COLLATE=C
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
[7] LC_PAPER=en_US.UTF-8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] DNAcopy_1.52.0
loaded via a namespace (and not attached):
[1] compiler_3.4.4
>
>
> ######################################################################
> # HISTORY
> # 2009-06-10
> # o ROBUSTNESS: Added this test to assert that DNAcopy v1.19.2 and
> # newer will numerically give the same results as DNAcopy v1.19.0.
> # This test is ran each time with R CMD check.
> # o Created.
> ######################################################################
>
> proc.time()
user system elapsed
0.636 0.028 0.680