[Robast-commits] r596 - branches/robast-0.9/pkg/RobLoxBioC/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Feb 8 19:43:54 CET 2013
Author: stamats
Date: 2013-02-08 19:43:54 +0100 (Fri, 08 Feb 2013)
New Revision: 596
Modified:
branches/robast-0.9/pkg/RobLoxBioC/tests/Examples/RobLoxBioC-Ex.Rout.save
Log:
update of Rout.save
Modified: branches/robast-0.9/pkg/RobLoxBioC/tests/Examples/RobLoxBioC-Ex.Rout.save
===================================================================
--- branches/robast-0.9/pkg/RobLoxBioC/tests/Examples/RobLoxBioC-Ex.Rout.save 2013-02-08 15:32:56 UTC (rev 595)
+++ branches/robast-0.9/pkg/RobLoxBioC/tests/Examples/RobLoxBioC-Ex.Rout.save 2013-02-08 18:43:54 UTC (rev 596)
@@ -1,5 +1,5 @@
-R Under development (unstable) (2013-01-26 r61749) -- "Unsuffered Consequences"
+R Under development (unstable) (2013-02-06 r61845) -- "Unsuffered Consequences"
Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-unknown-linux-gnu (64-bit)
@@ -225,10 +225,10 @@
clip
>
-> assign(".oldSearch", search(), pos = 'CheckExEnv')
-> assign(".ExTimings", "RobLoxBioC-Ex.timings", pos = 'CheckExEnv')
-> cat("name\tuser\tsystem\telapsed\n", file=get(".ExTimings", pos = 'CheckExEnv'))
-> assign(".format_ptime",
+> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
+> base::assign(".ExTimings", "RobLoxBioC-Ex.timings", pos = 'CheckExEnv')
+> base::cat("name\tuser\tsystem\telapsed\n", file=base::get(".ExTimings", pos = 'CheckExEnv'))
+> base::assign(".format_ptime",
+ function(x) {
+ if(!is.na(x[4L])) x[1L] <- x[1L] + x[4L]
+ if(!is.na(x[5L])) x[2L] <- x[2L] + x[5L]
@@ -242,7 +242,7 @@
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RobLoxBioC-package
> ### Title: Infinitesimally robust estimators for preprocessing omics data
> ### Aliases: RobLoxBioC-package RobLoxBioC
@@ -255,15 +255,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("0RobLoxBioC-package", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("0RobLoxBioC-package", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("KolmogorovMinDist")
> ### * KolmogorovMinDist
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: KolmogorovMinDist
> ### Title: Generic Function for Computing Minimum Kolmogorov Distance for
> ### Biological Data
@@ -337,15 +337,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("KolmogorovMinDist", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("KolmogorovMinDist", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("SimStudies")
> ### * SimStudies
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: SimStudies
> ### Title: Perform Monte-Carlo Study.
> ### Aliases: AffySimStudy IlluminaSimStudy
@@ -380,15 +380,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("SimStudies", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("SimStudies", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("robloxbioc")
> ### * robloxbioc
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: robloxbioc
> ### Title: Generic Function for Preprocessing Biological Data
> ### Aliases: robloxbioc robloxbioc-methods robloxbioc,matrix-method
@@ -454,12 +454,12 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("robloxbioc", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> base::cat("robloxbioc", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> ### * <FOOTER>
> ###
-> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 11.344 0.136 11.628 0 0
+> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
+Time elapsed: 12.136 0.156 12.385 0 0
> grDevices::dev.off()
pdf
2
More information about the Robast-commits
mailing list