[Robast-commits] r591 - branches/robast-0.9/pkg/RandVar/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Feb 8 10:01:32 CET 2013
Author: stamats
Date: 2013-02-08 10:01:32 +0100 (Fri, 08 Feb 2013)
New Revision: 591
Modified:
branches/robast-0.9/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save
Log:
update of Rout.save - no errors or warnings
Modified: branches/robast-0.9/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save
===================================================================
--- branches/robast-0.9/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2013-02-07 19:45:29 UTC (rev 590)
+++ branches/robast-0.9/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2013-02-08 09:01:32 UTC (rev 591)
@@ -1,5 +1,5 @@
-R Under development (unstable) (2013-01-09 r61595) -- "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)
@@ -123,10 +123,10 @@
:RandVar> vignette("RandVar").
>
-> assign(".oldSearch", search(), pos = 'CheckExEnv')
-> assign(".ExTimings", "RandVar-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", "RandVar-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]
@@ -140,7 +140,7 @@
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVar-package
> ### Title: Implementation of random variables
> ### Aliases: RandVar-package RandVar
@@ -154,15 +154,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("0RandVar-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("0RandVar-package", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EuclRandMatrix-class")
> ### * EuclRandMatrix-class
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandMatrix-class
> ### Title: Euclidean random matrix
> ### Aliases: EuclRandMatrix-class
@@ -229,7 +229,7 @@
}
t(f(x))
}
-<environment: 0x59c57f0>
+<environment: 0x64008c8>
>
> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
@@ -258,7 +258,7 @@
}
gamma(f1(x))
}
-<environment: 0x5a40c10>
+<environment: 0x643c150>
[[2]]
function (x)
@@ -269,7 +269,7 @@
}
gamma(f1(x))
}
-<environment: 0x5a40c10>
+<environment: 0x643c150>
[[3]]
function (x)
@@ -280,7 +280,7 @@
}
gamma(f1(x))
}
-<environment: 0x5a40c10>
+<environment: 0x643c150>
[[4]]
function (x)
@@ -291,7 +291,7 @@
}
gamma(f1(x))
}
-<environment: 0x5a40c10>
+<environment: 0x643c150>
>
> ## "Arith" group
@@ -305,7 +305,7 @@
}
2/f2(x)
}
-<environment: 0x554fac0>
+<environment: 0x67d62e0>
[[2]]
function (x)
@@ -316,7 +316,7 @@
}
2/f2(x)
}
-<environment: 0x554fac0>
+<environment: 0x67d62e0>
[[3]]
function (x)
@@ -327,7 +327,7 @@
}
2/f2(x)
}
-<environment: 0x554fac0>
+<environment: 0x67d62e0>
[[4]]
function (x)
@@ -338,7 +338,7 @@
}
2/f2(x)
}
-<environment: 0x554fac0>
+<environment: 0x67d62e0>
[[5]]
function (x)
@@ -349,7 +349,7 @@
}
2/f2(x)
}
-<environment: 0x554fac0>
+<environment: 0x67d62e0>
[[6]]
function (x)
@@ -360,7 +360,7 @@
}
2/f2(x)
}
-<environment: 0x554fac0>
+<environment: 0x67d62e0>
> Map(R2 * R2)
[[1]]
@@ -376,7 +376,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x4ae01c8>
+<environment: 0x66c7d88>
[[2]]
function (x)
@@ -391,7 +391,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x4ae01c8>
+<environment: 0x66c7d88>
[[3]]
function (x)
@@ -406,7 +406,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x4ae01c8>
+<environment: 0x66c7d88>
[[4]]
function (x)
@@ -421,21 +421,21 @@
}
f1(x) * f2(x)
}
-<environment: 0x4ae01c8>
+<environment: 0x66c7d88>
>
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("EuclRandMatrix-class", 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("EuclRandMatrix-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EuclRandMatrix")
> ### * EuclRandMatrix
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandMatrix
> ### Title: Generating function for EuclRandMatrix-class
> ### Aliases: EuclRandMatrix
@@ -476,7 +476,7 @@
}
t(f(x))
}
-<environment: 0x5cff898>
+<environment: 0x681e000>
>
> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
@@ -503,7 +503,7 @@
}
gamma(f1(x))
}
-<environment: 0x5c56118>
+<environment: 0x681b828>
[[2]]
function (x)
@@ -514,7 +514,7 @@
}
gamma(f1(x))
}
-<environment: 0x5c56118>
+<environment: 0x681b828>
[[3]]
function (x)
@@ -525,7 +525,7 @@
}
gamma(f1(x))
}
-<environment: 0x5c56118>
+<environment: 0x681b828>
[[4]]
function (x)
@@ -536,7 +536,7 @@
}
gamma(f1(x))
}
-<environment: 0x5c56118>
+<environment: 0x681b828>
>
> ## "Arith" group
@@ -550,7 +550,7 @@
}
2/f2(x)
}
-<environment: 0x5bd4260>
+<environment: 0x678cb70>
[[2]]
function (x)
@@ -561,7 +561,7 @@
}
2/f2(x)
}
-<environment: 0x5bd4260>
+<environment: 0x678cb70>
[[3]]
function (x)
@@ -572,7 +572,7 @@
}
2/f2(x)
}
-<environment: 0x5bd4260>
+<environment: 0x678cb70>
[[4]]
function (x)
@@ -583,7 +583,7 @@
}
2/f2(x)
}
-<environment: 0x5bd4260>
+<environment: 0x678cb70>
[[5]]
function (x)
@@ -594,7 +594,7 @@
}
2/f2(x)
}
-<environment: 0x5bd4260>
+<environment: 0x678cb70>
[[6]]
function (x)
@@ -605,7 +605,7 @@
}
2/f2(x)
}
-<environment: 0x5bd4260>
+<environment: 0x678cb70>
> Map(R2 * R2)
[[1]]
@@ -621,7 +621,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x5b0f088>
+<environment: 0x66b93f0>
[[2]]
function (x)
@@ -636,7 +636,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x5b0f088>
+<environment: 0x66b93f0>
[[3]]
function (x)
@@ -651,7 +651,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x5b0f088>
+<environment: 0x66b93f0>
[[4]]
function (x)
@@ -666,7 +666,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x5b0f088>
+<environment: 0x66b93f0>
>
>
@@ -705,15 +705,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("EuclRandMatrix", 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("EuclRandMatrix", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EuclRandVarList-class")
> ### * EuclRandVarList-class
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVarList-class
> ### Title: List of Euclidean random variables
> ### Aliases: EuclRandVarList-class numberOfMaps
@@ -788,7 +788,7 @@
}
exp(f1(x))
}
-<environment: 0x5bc6ae8>
+<environment: 0x6863cf0>
[[2]]
function (x)
@@ -799,7 +799,7 @@
}
exp(f1(x))
}
-<environment: 0x5bc6ae8>
+<environment: 0x6863cf0>
[[3]]
function (x)
@@ -810,7 +810,7 @@
}
exp(f1(x))
}
-<environment: 0x5bc6ae8>
+<environment: 0x6863cf0>
[[4]]
function (x)
@@ -821,7 +821,7 @@
}
exp(f1(x))
}
-<environment: 0x5bc6ae8>
+<environment: 0x6863cf0>
>
> ## "Arith" group
@@ -835,7 +835,7 @@
}
1 + f2(x)
}
-<environment: 0x5a14b10>
+<environment: 0x667dc38>
[[2]]
function (x)
@@ -846,7 +846,7 @@
}
1 + f2(x)
}
-<environment: 0x5a14b10>
+<environment: 0x667dc38>
[[3]]
function (x)
@@ -857,7 +857,7 @@
}
1 + f2(x)
}
-<environment: 0x5a14b10>
+<environment: 0x667dc38>
[[4]]
function (x)
@@ -868,7 +868,7 @@
}
1 + f2(x)
}
-<environment: 0x5a14b10>
+<environment: 0x667dc38>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -880,7 +880,7 @@
}
f1(x) * 2
}
-<environment: 0x5c45f10>
+<environment: 0x607ad98>
[[2]]
function (x)
@@ -891,7 +891,7 @@
}
f1(x) * 2
}
-<environment: 0x5c45f10>
+<environment: 0x607ad98>
[[3]]
function (x)
@@ -902,7 +902,7 @@
}
f1(x) * 2
}
-<environment: 0x5c45f10>
+<environment: 0x607ad98>
[[4]]
function (x)
@@ -913,7 +913,7 @@
}
f1(x) * 2
}
-<environment: 0x5c45f10>
+<environment: 0x607ad98>
[[5]]
function (x)
@@ -924,7 +924,7 @@
}
f1(x) * 2
}
-<environment: 0x5c45f10>
+<environment: 0x607ad98>
[[6]]
function (x)
@@ -935,7 +935,7 @@
}
f1(x) * 2
}
-<environment: 0x5c45f10>
+<environment: 0x607ad98>
> Map((RL1 / RL1)[[3]])
[[1]]
@@ -951,7 +951,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x5531868>
+<environment: 0x627ede0>
[[2]]
function (x)
@@ -966,7 +966,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x5531868>
+<environment: 0x627ede0>
[[3]]
function (x)
@@ -981,7 +981,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x5531868>
+<environment: 0x627ede0>
[[4]]
function (x)
@@ -996,21 +996,21 @@
}
f1(x)/f2(x)
}
-<environment: 0x5531868>
+<environment: 0x627ede0>
>
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("EuclRandVarList-class", 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("EuclRandVarList-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EuclRandVarList")
> ### * EuclRandVarList
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVarList
> ### Title: Generating function for EuclRandVarList-class
> ### Aliases: EuclRandVarList
@@ -1066,7 +1066,7 @@
}
exp(f1(x))
}
-<environment: 0x5c26058>
+<environment: 0x67e11d8>
[[2]]
function (x)
@@ -1077,7 +1077,7 @@
}
exp(f1(x))
}
-<environment: 0x5c26058>
+<environment: 0x67e11d8>
[[3]]
function (x)
@@ -1088,7 +1088,7 @@
}
exp(f1(x))
}
-<environment: 0x5c26058>
+<environment: 0x67e11d8>
[[4]]
function (x)
@@ -1099,7 +1099,7 @@
}
exp(f1(x))
}
-<environment: 0x5c26058>
+<environment: 0x67e11d8>
>
> ## "Arith" group
@@ -1113,7 +1113,7 @@
}
1 + f2(x)
}
-<environment: 0x5cbd628>
+<environment: 0x6888400>
[[2]]
function (x)
@@ -1124,7 +1124,7 @@
}
1 + f2(x)
}
-<environment: 0x5cbd628>
+<environment: 0x6888400>
[[3]]
function (x)
@@ -1135,7 +1135,7 @@
}
1 + f2(x)
}
-<environment: 0x5cbd628>
+<environment: 0x6888400>
[[4]]
function (x)
@@ -1146,7 +1146,7 @@
}
1 + f2(x)
}
-<environment: 0x5cbd628>
+<environment: 0x6888400>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -1158,7 +1158,7 @@
}
f1(x) * 2
}
-<environment: 0x5a79498>
+<environment: 0x663e7d8>
[[2]]
function (x)
@@ -1169,7 +1169,7 @@
}
f1(x) * 2
}
-<environment: 0x5a79498>
+<environment: 0x663e7d8>
[[3]]
function (x)
@@ -1180,7 +1180,7 @@
}
f1(x) * 2
}
-<environment: 0x5a79498>
+<environment: 0x663e7d8>
[[4]]
function (x)
@@ -1191,7 +1191,7 @@
}
f1(x) * 2
}
-<environment: 0x5a79498>
+<environment: 0x663e7d8>
[[5]]
function (x)
@@ -1202,7 +1202,7 @@
}
f1(x) * 2
}
-<environment: 0x5a79498>
+<environment: 0x663e7d8>
[[6]]
function (x)
@@ -1213,7 +1213,7 @@
}
f1(x) * 2
}
-<environment: 0x5a79498>
+<environment: 0x663e7d8>
> Map((RL1 / RL1)[[3]])
[[1]]
@@ -1229,7 +1229,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x51e8ba8>
+<environment: 0x5b9e790>
[[2]]
function (x)
@@ -1244,7 +1244,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x51e8ba8>
+<environment: 0x5b9e790>
[[3]]
function (x)
@@ -1259,7 +1259,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x51e8ba8>
+<environment: 0x5b9e790>
[[4]]
function (x)
@@ -1274,7 +1274,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x51e8ba8>
+<environment: 0x5b9e790>
>
> ## The function is currently defined as
@@ -1289,15 +1289,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("EuclRandVarList", 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("EuclRandVarList", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EuclRandVariable-class")
> ### * EuclRandVariable-class
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVariable-class
> ### Title: Euclidean random variable
> ### Aliases: EuclRandVariable-class
@@ -1479,7 +1479,7 @@
}
log(f1(x))
}
-<environment: 0x5c40130>
+<environment: 0x6809178>
[[2]]
function (x)
@@ -1494,7 +1494,7 @@
}
log(f1(x))
}
-<environment: 0x5c40130>
+<environment: 0x6809178>
[[3]]
function (x)
@@ -1509,7 +1509,7 @@
}
log(f1(x))
}
-<environment: 0x5c40130>
+<environment: 0x6809178>
[[4]]
function (x)
@@ -1524,7 +1524,7 @@
}
log(f1(x))
}
-<environment: 0x5c40130>
+<environment: 0x6809178>
>
> # "Arith" group generic
@@ -1538,7 +1538,7 @@
}
3 + f2(x)
}
-<environment: 0x5bff340>
+<environment: 0x67cc4a0>
[[2]]
function (x)
@@ -1549,7 +1549,7 @@
}
3 + f2(x)
}
-<environment: 0x5bff340>
+<environment: 0x67cc4a0>
[[3]]
function (x)
@@ -1560,7 +1560,7 @@
}
3 + f2(x)
}
-<environment: 0x5bff340>
+<environment: 0x67cc4a0>
[[4]]
function (x)
@@ -1571,7 +1571,7 @@
}
3 + f2(x)
}
-<environment: 0x5bff340>
+<environment: 0x67cc4a0>
> Map(c(1,3,5) * R1)
Warning in c(1, 3, 5) * R1 :
@@ -1585,7 +1585,7 @@
}
1 * f2(x)
}
-<environment: 0x5bb03c8>
+<environment: 0x676f478>
[[2]]
function (x)
@@ -1596,7 +1596,7 @@
}
3 * f2(x)
}
-<environment: 0x5bb03c8>
+<environment: 0x676f478>
[[3]]
function (x)
@@ -1607,7 +1607,7 @@
}
5 * f2(x)
}
-<environment: 0x5bb03c8>
+<environment: 0x676f478>
[[4]]
function (x)
@@ -1618,7 +1618,7 @@
}
1 * f2(x)
}
-<environment: 0x5bb03c8>
+<environment: 0x676f478>
> try(1:5 * R1) # error
Error in 1:5 * R1 :
@@ -1633,7 +1633,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5c14588>
+<environment: 0x6830b30>
[[2]]
function (x)
@@ -1644,7 +1644,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5c14588>
+<environment: 0x6830b30>
[[3]]
function (x)
@@ -1655,7 +1655,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5c14588>
+<environment: 0x6830b30>
[[4]]
function (x)
@@ -1666,7 +1666,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5c14588>
+<environment: 0x6830b30>
> Map(R2 - 5)
[[1]]
@@ -1678,7 +1678,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bbe920>
+<environment: 0x67ff7a8>
[[2]]
function (x)
@@ -1689,7 +1689,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bbe920>
+<environment: 0x67ff7a8>
[[3]]
function (x)
@@ -1700,7 +1700,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bbe920>
+<environment: 0x67ff7a8>
[[4]]
function (x)
@@ -1711,7 +1711,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bbe920>
+<environment: 0x67ff7a8>
> Map(R1 ^ R1)
[[1]]
@@ -1727,7 +1727,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b72860>
+<environment: 0x679bda8>
[[2]]
function (x)
@@ -1742,7 +1742,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b72860>
+<environment: 0x679bda8>
[[3]]
function (x)
@@ -1757,7 +1757,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b72860>
+<environment: 0x679bda8>
[[4]]
function (x)
@@ -1772,22 +1772,22 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b72860>
+<environment: 0x679bda8>
>
>
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("EuclRandVariable-class", 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("EuclRandVariable-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("EuclRandVariable")
> ### * EuclRandVariable
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVariable
> ### Title: Generating function for EuclRandVariable-class
> ### Aliases: EuclRandVariable
@@ -1936,7 +1936,7 @@
}
log(f1(x))
}
-<environment: 0x5c02738>
+<environment: 0x6830af8>
[[2]]
function (x)
@@ -1951,7 +1951,7 @@
}
log(f1(x))
}
-<environment: 0x5c02738>
+<environment: 0x6830af8>
[[3]]
function (x)
@@ -1966,7 +1966,7 @@
}
log(f1(x))
}
-<environment: 0x5c02738>
+<environment: 0x6830af8>
[[4]]
function (x)
@@ -1981,7 +1981,7 @@
}
log(f1(x))
}
-<environment: 0x5c02738>
+<environment: 0x6830af8>
>
> # "Arith" group generic
@@ -1995,7 +1995,7 @@
}
3 + f2(x)
}
-<environment: 0x5cfe870>
+<environment: 0x67e1ce0>
[[2]]
function (x)
@@ -2006,7 +2006,7 @@
}
3 + f2(x)
}
-<environment: 0x5cfe870>
+<environment: 0x67e1ce0>
[[3]]
function (x)
@@ -2017,7 +2017,7 @@
}
3 + f2(x)
}
-<environment: 0x5cfe870>
+<environment: 0x67e1ce0>
[[4]]
function (x)
@@ -2028,7 +2028,7 @@
}
3 + f2(x)
}
-<environment: 0x5cfe870>
+<environment: 0x67e1ce0>
> Map(c(1,3,5) * R1)
Warning in c(1, 3, 5) * R1 :
@@ -2042,7 +2042,7 @@
}
1 * f2(x)
}
-<environment: 0x5c50c80>
+<environment: 0x679b868>
[[2]]
function (x)
@@ -2053,7 +2053,7 @@
}
3 * f2(x)
}
-<environment: 0x5c50c80>
+<environment: 0x679b868>
[[3]]
function (x)
@@ -2064,7 +2064,7 @@
}
5 * f2(x)
}
-<environment: 0x5c50c80>
+<environment: 0x679b868>
[[4]]
function (x)
@@ -2075,7 +2075,7 @@
}
1 * f2(x)
}
-<environment: 0x5c50c80>
+<environment: 0x679b868>
> try(1:5 * R1) # error
Error in 1:5 * R1 :
@@ -2090,7 +2090,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5be2958>
+<environment: 0x687bd40>
[[2]]
function (x)
@@ -2101,7 +2101,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5be2958>
+<environment: 0x687bd40>
[[3]]
function (x)
@@ -2112,7 +2112,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5be2958>
+<environment: 0x687bd40>
[[4]]
function (x)
@@ -2123,7 +2123,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5be2958>
+<environment: 0x687bd40>
> Map(R2 - 5)
[[1]]
@@ -2135,7 +2135,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5cfe870>
+<environment: 0x67ebd50>
[[2]]
function (x)
@@ -2146,7 +2146,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5cfe870>
+<environment: 0x67ebd50>
[[3]]
function (x)
@@ -2157,7 +2157,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5cfe870>
+<environment: 0x67ebd50>
[[4]]
function (x)
@@ -2168,7 +2168,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5cfe870>
+<environment: 0x67ebd50>
> Map(R1 ^ R1)
[[1]]
@@ -2184,7 +2184,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5c50938>
+<environment: 0x67ad178>
[[2]]
function (x)
@@ -2199,7 +2199,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5c50938>
+<environment: 0x67ad178>
[[3]]
function (x)
@@ -2214,7 +2214,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5c50938>
+<environment: 0x67ad178>
[[4]]
function (x)
@@ -2229,7 +2229,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5c50938>
+<environment: 0x67ad178>
>
>
@@ -2256,15 +2256,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("EuclRandVariable", 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("EuclRandVariable", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RandVariable-class")
> ### * RandVariable-class
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVariable-class
> ### Title: Random variable
> ### Aliases: RandVariable-class Map Domain Range compatibleDomains
@@ -2288,7 +2288,7 @@
function (x)
{
}
-<bytecode: 0x4ff9560>
+<bytecode: 0x5618170>
<environment: namespace:RandVar>
> Domain(R1)
@@ -2336,15 +2336,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("RandVariable-class", 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("RandVariable-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RandVariable")
> ### * RandVariable
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVariable
> ### Title: Generating function for RandVariable-class
> ### Aliases: RandVariable
@@ -2362,7 +2362,7 @@
function (x)
{
}
-<environment: 0x59304b8>
+<environment: 0x689b0d8>
> Domain(R1)
NULL
@@ -2419,15 +2419,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("RandVariable", 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("RandVariable", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RealRandVariable-class")
> ### * RealRandVariable-class
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RealRandVariable-class
> ### Title: Real random variable
> ### Aliases: RealRandVariable-class Range<-,RealRandVariable-method
@@ -2444,15 +2444,15 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("RealRandVariable-class", 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("RealRandVariable-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("RealRandVariable")
> ### * RealRandVariable
>
> flush(stderr()); flush(stdout())
>
-> assign(".ptime", proc.time(), pos = "CheckExEnv")
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RealRandVariable
> ### Title: Generating function for RealRandVariable-class
> ### Aliases: RealRandVariable
@@ -2490,12 +2490,12 @@
>
>
>
-> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> cat("RealRandVariable", 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("RealRandVariable", 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: 5.524 0.068 5.668 0 0
+> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
+Time elapsed: 5.556 0.04 5.696 0 0
> grDevices::dev.off()
null device
1
More information about the Robast-commits
mailing list