[Robast-commits] r536 - in branches/robast-0.9/pkg/RandVar: . man tests tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Jan 15 07:59:46 CET 2013
Author: stamats
Date: 2013-01-15 07:59:46 +0100 (Tue, 15 Jan 2013)
New Revision: 536
Modified:
branches/robast-0.9/pkg/RandVar/DESCRIPTION
branches/robast-0.9/pkg/RandVar/man/0RandVar-package.Rd
branches/robast-0.9/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save
branches/robast-0.9/pkg/RandVar/tests/tests.Rout.save
Log:
started checking robast 0.9 branch
Modified: branches/robast-0.9/pkg/RandVar/DESCRIPTION
===================================================================
--- branches/robast-0.9/pkg/RandVar/DESCRIPTION 2013-01-15 01:03:44 UTC (rev 535)
+++ branches/robast-0.9/pkg/RandVar/DESCRIPTION 2013-01-15 06:59:46 UTC (rev 536)
@@ -1,6 +1,6 @@
Package: RandVar
Version: 0.9
-Date: 2012-06-05
+Date: 2013-01-15
Title: Implementation of random variables
Description: Implementation of random variables by means of S4 classes and methods
Depends: R (>= 2.12.0), methods, startupmsg, distr(>= 2.0), distrEx(>= 2.0)
Modified: branches/robast-0.9/pkg/RandVar/man/0RandVar-package.Rd
===================================================================
--- branches/robast-0.9/pkg/RandVar/man/0RandVar-package.Rd 2013-01-15 01:03:44 UTC (rev 535)
+++ branches/robast-0.9/pkg/RandVar/man/0RandVar-package.Rd 2013-01-15 06:59:46 UTC (rev 536)
@@ -12,7 +12,7 @@
\tabular{ll}{
Package: \tab RandVar \cr
Version: \tab 0.9 \cr
-Date: \tab 2012-06-05 \cr
+Date: \tab 2013-01-15 \cr
Depends: \tab R (>= 2.12.0), methods, startupmsg, distr(>= 2.0), distrEx(>=
2.0)\cr
LazyLoad: \tab yes \cr
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-01-15 01:03:44 UTC (rev 535)
+++ branches/robast-0.9/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2013-01-15 06:59:46 UTC (rev 536)
@@ -1,6 +1,6 @@
-R version 2.15.0 Patched (2012-05-26 r59450) -- "Easter Beagle"
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R Under development (unstable) (2013-01-09 r61595) -- "Unsuffered Consequences"
+Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-unknown-linux-gnu (64-bit)
@@ -34,6 +34,13 @@
:SweaveListingUtils> Utilities for Sweave together with
:SweaveListingUtils> TeX listings package (version 0.6)
:SweaveListingUtils>
+:SweaveListingUtils> NOTE: Support for this package
+:SweaveListingUtils> will stop soon.
+:SweaveListingUtils>
+:SweaveListingUtils> Package 'knitr' is providing the
+:SweaveListingUtils> same functionality in a better
+:SweaveListingUtils> way.
+:SweaveListingUtils>
:SweaveListingUtils> Some functions from package 'base'
:SweaveListingUtils> are intentionally masked ---see
:SweaveListingUtils> SweaveListingMASK().
@@ -53,7 +60,7 @@
Attaching package: ‘SweaveListingUtils’
-The following object(s) are masked from ‘package:base’:
+The following object is masked from ‘package:base’:
library, require
@@ -79,7 +86,7 @@
Attaching package: ‘distr’
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
df, qqplot, sd
@@ -103,7 +110,7 @@
Attaching package: ‘distrEx’
-The following object(s) are masked from ‘package:stats’:
+The following object is masked from ‘package:stats’:
IQR, mad, median, var
@@ -117,12 +124,23 @@
>
> 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",
++ function(x) {
++ if(!is.na(x[4L])) x[1L] <- x[1L] + x[4L]
++ if(!is.na(x[5L])) x[2L] <- x[2L] + x[5L]
++ format(x[1L:3L])
++ },
++ pos = 'CheckExEnv')
+>
> cleanEx()
> nameEx("0RandVar-package")
> ### * 0RandVar-package
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVar-package
> ### Title: Implementation of random variables
> ### Aliases: RandVar-package RandVar
@@ -135,12 +153,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("EuclRandMatrix-class")
> ### * EuclRandMatrix-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandMatrix-class
> ### Title: Euclidean random matrix
> ### Aliases: EuclRandMatrix-class
@@ -207,7 +229,7 @@
}
t(f(x))
}
-<environment: 0x4fa60b8>
+<environment: 0x59c57f0>
>
> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
@@ -236,7 +258,7 @@
}
gamma(f1(x))
}
-<environment: 0x4133e50>
+<environment: 0x5a40c10>
[[2]]
function (x)
@@ -247,7 +269,7 @@
}
gamma(f1(x))
}
-<environment: 0x4133e50>
+<environment: 0x5a40c10>
[[3]]
function (x)
@@ -258,7 +280,7 @@
}
gamma(f1(x))
}
-<environment: 0x4133e50>
+<environment: 0x5a40c10>
[[4]]
function (x)
@@ -269,7 +291,7 @@
}
gamma(f1(x))
}
-<environment: 0x4133e50>
+<environment: 0x5a40c10>
>
> ## "Arith" group
@@ -283,7 +305,7 @@
}
2/f2(x)
}
-<environment: 0x33258e8>
+<environment: 0x554fac0>
[[2]]
function (x)
@@ -294,7 +316,7 @@
}
2/f2(x)
}
-<environment: 0x33258e8>
+<environment: 0x554fac0>
[[3]]
function (x)
@@ -305,7 +327,7 @@
}
2/f2(x)
}
-<environment: 0x33258e8>
+<environment: 0x554fac0>
[[4]]
function (x)
@@ -316,7 +338,7 @@
}
2/f2(x)
}
-<environment: 0x33258e8>
+<environment: 0x554fac0>
[[5]]
function (x)
@@ -327,7 +349,7 @@
}
2/f2(x)
}
-<environment: 0x33258e8>
+<environment: 0x554fac0>
[[6]]
function (x)
@@ -338,7 +360,7 @@
}
2/f2(x)
}
-<environment: 0x33258e8>
+<environment: 0x554fac0>
> Map(R2 * R2)
[[1]]
@@ -354,7 +376,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x2018df8>
+<environment: 0x4ae01c8>
[[2]]
function (x)
@@ -369,7 +391,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x2018df8>
+<environment: 0x4ae01c8>
[[3]]
function (x)
@@ -384,7 +406,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x2018df8>
+<environment: 0x4ae01c8>
[[4]]
function (x)
@@ -399,17 +421,21 @@
}
f1(x) * f2(x)
}
-<environment: 0x2018df8>
+<environment: 0x4ae01c8>
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("EuclRandMatrix")
> ### * EuclRandMatrix
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandMatrix
> ### Title: Generating function for EuclRandMatrix-class
> ### Aliases: EuclRandMatrix
@@ -450,7 +476,7 @@
}
t(f(x))
}
-<environment: 0x667d658>
+<environment: 0x5cff898>
>
> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
@@ -477,7 +503,7 @@
}
gamma(f1(x))
}
-<environment: 0x5623950>
+<environment: 0x5c56118>
[[2]]
function (x)
@@ -488,7 +514,7 @@
}
gamma(f1(x))
}
-<environment: 0x5623950>
+<environment: 0x5c56118>
[[3]]
function (x)
@@ -499,7 +525,7 @@
}
gamma(f1(x))
}
-<environment: 0x5623950>
+<environment: 0x5c56118>
[[4]]
function (x)
@@ -510,7 +536,7 @@
}
gamma(f1(x))
}
-<environment: 0x5623950>
+<environment: 0x5c56118>
>
> ## "Arith" group
@@ -524,7 +550,7 @@
}
2/f2(x)
}
-<environment: 0x55b01c8>
+<environment: 0x5bd4260>
[[2]]
function (x)
@@ -535,7 +561,7 @@
}
2/f2(x)
}
-<environment: 0x55b01c8>
+<environment: 0x5bd4260>
[[3]]
function (x)
@@ -546,7 +572,7 @@
}
2/f2(x)
}
-<environment: 0x55b01c8>
+<environment: 0x5bd4260>
[[4]]
function (x)
@@ -557,7 +583,7 @@
}
2/f2(x)
}
-<environment: 0x55b01c8>
+<environment: 0x5bd4260>
[[5]]
function (x)
@@ -568,7 +594,7 @@
}
2/f2(x)
}
-<environment: 0x55b01c8>
+<environment: 0x5bd4260>
[[6]]
function (x)
@@ -579,7 +605,7 @@
}
2/f2(x)
}
-<environment: 0x55b01c8>
+<environment: 0x5bd4260>
> Map(R2 * R2)
[[1]]
@@ -595,7 +621,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x54f4108>
+<environment: 0x5b0f088>
[[2]]
function (x)
@@ -610,7 +636,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x54f4108>
+<environment: 0x5b0f088>
[[3]]
function (x)
@@ -625,7 +651,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x54f4108>
+<environment: 0x5b0f088>
[[4]]
function (x)
@@ -640,7 +666,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x54f4108>
+<environment: 0x5b0f088>
>
>
@@ -678,12 +704,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("EuclRandVarList-class")
> ### * EuclRandVarList-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVarList-class
> ### Title: List of Euclidean random variables
> ### Aliases: EuclRandVarList-class numberOfMaps
@@ -758,7 +788,7 @@
}
exp(f1(x))
}
-<environment: 0x4eca220>
+<environment: 0x5bc6ae8>
[[2]]
function (x)
@@ -769,7 +799,7 @@
}
exp(f1(x))
}
-<environment: 0x4eca220>
+<environment: 0x5bc6ae8>
[[3]]
function (x)
@@ -780,7 +810,7 @@
}
exp(f1(x))
}
-<environment: 0x4eca220>
+<environment: 0x5bc6ae8>
[[4]]
function (x)
@@ -791,7 +821,7 @@
}
exp(f1(x))
}
-<environment: 0x4eca220>
+<environment: 0x5bc6ae8>
>
> ## "Arith" group
@@ -805,7 +835,7 @@
}
1 + f2(x)
}
-<environment: 0x45b30e8>
+<environment: 0x5a14b10>
[[2]]
function (x)
@@ -816,7 +846,7 @@
}
1 + f2(x)
}
-<environment: 0x45b30e8>
+<environment: 0x5a14b10>
[[3]]
function (x)
@@ -827,7 +857,7 @@
}
1 + f2(x)
}
-<environment: 0x45b30e8>
+<environment: 0x5a14b10>
[[4]]
function (x)
@@ -838,7 +868,7 @@
}
1 + f2(x)
}
-<environment: 0x45b30e8>
+<environment: 0x5a14b10>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -850,7 +880,7 @@
}
f1(x) * 2
}
-<environment: 0x47dd4d8>
+<environment: 0x5c45f10>
[[2]]
function (x)
@@ -861,7 +891,7 @@
}
f1(x) * 2
}
-<environment: 0x47dd4d8>
+<environment: 0x5c45f10>
[[3]]
function (x)
@@ -872,7 +902,7 @@
}
f1(x) * 2
}
-<environment: 0x47dd4d8>
+<environment: 0x5c45f10>
[[4]]
function (x)
@@ -883,7 +913,7 @@
}
f1(x) * 2
}
-<environment: 0x47dd4d8>
+<environment: 0x5c45f10>
[[5]]
function (x)
@@ -894,7 +924,7 @@
}
f1(x) * 2
}
-<environment: 0x47dd4d8>
+<environment: 0x5c45f10>
[[6]]
function (x)
@@ -905,7 +935,7 @@
}
f1(x) * 2
}
-<environment: 0x47dd4d8>
+<environment: 0x5c45f10>
> Map((RL1 / RL1)[[3]])
[[1]]
@@ -921,7 +951,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x2281cf8>
+<environment: 0x5531868>
[[2]]
function (x)
@@ -936,7 +966,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x2281cf8>
+<environment: 0x5531868>
[[3]]
function (x)
@@ -951,7 +981,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x2281cf8>
+<environment: 0x5531868>
[[4]]
function (x)
@@ -966,17 +996,21 @@
}
f1(x)/f2(x)
}
-<environment: 0x2281cf8>
+<environment: 0x5531868>
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("EuclRandVarList")
> ### * EuclRandVarList
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVarList
> ### Title: Generating function for EuclRandVarList-class
> ### Aliases: EuclRandVarList
@@ -1032,7 +1066,7 @@
}
exp(f1(x))
}
-<environment: 0x659f0a0>
+<environment: 0x5c26058>
[[2]]
function (x)
@@ -1043,7 +1077,7 @@
}
exp(f1(x))
}
-<environment: 0x659f0a0>
+<environment: 0x5c26058>
[[3]]
function (x)
@@ -1054,7 +1088,7 @@
}
exp(f1(x))
}
-<environment: 0x659f0a0>
+<environment: 0x5c26058>
[[4]]
function (x)
@@ -1065,7 +1099,7 @@
}
exp(f1(x))
}
-<environment: 0x659f0a0>
+<environment: 0x5c26058>
>
> ## "Arith" group
@@ -1079,7 +1113,7 @@
}
1 + f2(x)
}
-<environment: 0x6e49ac0>
+<environment: 0x5cbd628>
[[2]]
function (x)
@@ -1090,7 +1124,7 @@
}
1 + f2(x)
}
-<environment: 0x6e49ac0>
+<environment: 0x5cbd628>
[[3]]
function (x)
@@ -1101,7 +1135,7 @@
}
1 + f2(x)
}
-<environment: 0x6e49ac0>
+<environment: 0x5cbd628>
[[4]]
function (x)
@@ -1112,7 +1146,7 @@
}
1 + f2(x)
}
-<environment: 0x6e49ac0>
+<environment: 0x5cbd628>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -1124,7 +1158,7 @@
}
f1(x) * 2
}
-<environment: 0x6ff4cf0>
+<environment: 0x5a79498>
[[2]]
function (x)
@@ -1135,7 +1169,7 @@
}
f1(x) * 2
}
-<environment: 0x6ff4cf0>
+<environment: 0x5a79498>
[[3]]
function (x)
@@ -1146,7 +1180,7 @@
}
f1(x) * 2
}
-<environment: 0x6ff4cf0>
+<environment: 0x5a79498>
[[4]]
function (x)
@@ -1157,7 +1191,7 @@
}
f1(x) * 2
}
-<environment: 0x6ff4cf0>
+<environment: 0x5a79498>
[[5]]
function (x)
@@ -1168,7 +1202,7 @@
}
f1(x) * 2
}
-<environment: 0x6ff4cf0>
+<environment: 0x5a79498>
[[6]]
function (x)
@@ -1179,7 +1213,7 @@
}
f1(x) * 2
}
-<environment: 0x6ff4cf0>
+<environment: 0x5a79498>
> Map((RL1 / RL1)[[3]])
[[1]]
@@ -1195,7 +1229,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x727c008>
+<environment: 0x51e8ba8>
[[2]]
function (x)
@@ -1210,7 +1244,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x727c008>
+<environment: 0x51e8ba8>
[[3]]
function (x)
@@ -1225,7 +1259,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x727c008>
+<environment: 0x51e8ba8>
[[4]]
function (x)
@@ -1240,7 +1274,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x727c008>
+<environment: 0x51e8ba8>
>
> ## The function is currently defined as
@@ -1254,12 +1288,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("EuclRandVariable-class")
> ### * EuclRandVariable-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVariable-class
> ### Title: Euclidean random variable
> ### Aliases: EuclRandVariable-class
@@ -1441,7 +1479,7 @@
}
log(f1(x))
}
-<environment: 0x66429f8>
+<environment: 0x5c40130>
[[2]]
function (x)
@@ -1456,7 +1494,7 @@
}
log(f1(x))
}
-<environment: 0x66429f8>
+<environment: 0x5c40130>
[[3]]
function (x)
@@ -1471,7 +1509,7 @@
}
log(f1(x))
}
-<environment: 0x66429f8>
+<environment: 0x5c40130>
[[4]]
function (x)
@@ -1486,7 +1524,7 @@
}
log(f1(x))
}
-<environment: 0x66429f8>
+<environment: 0x5c40130>
>
> # "Arith" group generic
@@ -1500,7 +1538,7 @@
}
3 + f2(x)
}
-<environment: 0x6617190>
+<environment: 0x5bff340>
[[2]]
function (x)
@@ -1511,7 +1549,7 @@
}
3 + f2(x)
}
-<environment: 0x6617190>
+<environment: 0x5bff340>
[[3]]
function (x)
@@ -1522,7 +1560,7 @@
}
3 + f2(x)
}
-<environment: 0x6617190>
+<environment: 0x5bff340>
[[4]]
function (x)
@@ -1533,7 +1571,7 @@
}
3 + f2(x)
}
-<environment: 0x6617190>
+<environment: 0x5bff340>
> Map(c(1,3,5) * R1)
Warning in c(1, 3, 5) * R1 :
@@ -1547,7 +1585,7 @@
}
1 * f2(x)
}
-<environment: 0x5ba7968>
+<environment: 0x5bb03c8>
[[2]]
function (x)
@@ -1558,7 +1596,7 @@
}
3 * f2(x)
}
-<environment: 0x5ba7968>
+<environment: 0x5bb03c8>
[[3]]
function (x)
@@ -1569,7 +1607,7 @@
}
5 * f2(x)
}
-<environment: 0x5ba7968>
+<environment: 0x5bb03c8>
[[4]]
function (x)
@@ -1580,7 +1618,7 @@
}
1 * f2(x)
}
-<environment: 0x5ba7968>
+<environment: 0x5bb03c8>
> try(1:5 * R1) # error
Error in 1:5 * R1 :
@@ -1595,7 +1633,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5b19248>
+<environment: 0x5c14588>
[[2]]
function (x)
@@ -1606,7 +1644,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5b19248>
+<environment: 0x5c14588>
[[3]]
function (x)
@@ -1617,7 +1655,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5b19248>
+<environment: 0x5c14588>
[[4]]
function (x)
@@ -1628,7 +1666,7 @@
}
1:2 * f2(x)
}
-<environment: 0x5b19248>
+<environment: 0x5c14588>
> Map(R2 - 5)
[[1]]
@@ -1640,7 +1678,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x57b7dd0>
+<environment: 0x5bbe920>
[[2]]
function (x)
@@ -1651,7 +1689,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x57b7dd0>
+<environment: 0x5bbe920>
[[3]]
function (x)
@@ -1662,7 +1700,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x57b7dd0>
+<environment: 0x5bbe920>
[[4]]
function (x)
@@ -1673,7 +1711,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x57b7dd0>
+<environment: 0x5bbe920>
> Map(R1 ^ R1)
[[1]]
@@ -1689,7 +1727,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5730d80>
+<environment: 0x5b72860>
[[2]]
function (x)
@@ -1704,7 +1742,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5730d80>
+<environment: 0x5b72860>
[[3]]
function (x)
@@ -1719,7 +1757,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5730d80>
+<environment: 0x5b72860>
[[4]]
function (x)
@@ -1734,18 +1772,22 @@
}
f1(x)^f2(x)
}
-<environment: 0x5730d80>
+<environment: 0x5b72860>
>
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("EuclRandVariable")
> ### * EuclRandVariable
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVariable
> ### Title: Generating function for EuclRandVariable-class
> ### Aliases: EuclRandVariable
@@ -1894,7 +1936,7 @@
}
log(f1(x))
}
-<environment: 0x66bb020>
+<environment: 0x5c02738>
[[2]]
function (x)
@@ -1909,7 +1951,7 @@
}
log(f1(x))
}
-<environment: 0x66bb020>
+<environment: 0x5c02738>
[[3]]
function (x)
@@ -1924,7 +1966,7 @@
}
log(f1(x))
}
-<environment: 0x66bb020>
+<environment: 0x5c02738>
[[4]]
function (x)
@@ -1939,7 +1981,7 @@
}
log(f1(x))
}
-<environment: 0x66bb020>
+<environment: 0x5c02738>
>
> # "Arith" group generic
@@ -1953,7 +1995,7 @@
}
3 + f2(x)
}
-<environment: 0x6690818>
+<environment: 0x5cfe870>
[[2]]
function (x)
@@ -1964,7 +2006,7 @@
}
3 + f2(x)
}
-<environment: 0x6690818>
+<environment: 0x5cfe870>
[[3]]
function (x)
@@ -1975,7 +2017,7 @@
}
3 + f2(x)
}
-<environment: 0x6690818>
+<environment: 0x5cfe870>
[[4]]
function (x)
@@ -1986,7 +2028,7 @@
}
3 + f2(x)
}
-<environment: 0x6690818>
+<environment: 0x5cfe870>
> Map(c(1,3,5) * R1)
Warning in c(1, 3, 5) * R1 :
@@ -2000,7 +2042,7 @@
}
1 * f2(x)
}
-<environment: 0x665cee0>
+<environment: 0x5c50c80>
[[2]]
function (x)
@@ -2011,7 +2053,7 @@
}
3 * f2(x)
}
-<environment: 0x665cee0>
+<environment: 0x5c50c80>
[[3]]
function (x)
@@ -2022,7 +2064,7 @@
}
5 * f2(x)
}
-<environment: 0x665cee0>
+<environment: 0x5c50c80>
[[4]]
function (x)
@@ -2033,7 +2075,7 @@
}
1 * f2(x)
}
-<environment: 0x665cee0>
+<environment: 0x5c50c80>
> try(1:5 * R1) # error
Error in 1:5 * R1 :
@@ -2048,7 +2090,7 @@
}
1:2 * f2(x)
}
-<environment: 0x660aa78>
+<environment: 0x5be2958>
[[2]]
function (x)
@@ -2059,7 +2101,7 @@
}
1:2 * f2(x)
}
-<environment: 0x660aa78>
+<environment: 0x5be2958>
[[3]]
function (x)
@@ -2070,7 +2112,7 @@
}
1:2 * f2(x)
}
-<environment: 0x660aa78>
+<environment: 0x5be2958>
[[4]]
function (x)
@@ -2081,7 +2123,7 @@
}
1:2 * f2(x)
}
-<environment: 0x660aa78>
+<environment: 0x5be2958>
> Map(R2 - 5)
[[1]]
@@ -2093,7 +2135,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bb7248>
+<environment: 0x5cfe870>
[[2]]
function (x)
@@ -2104,7 +2146,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bb7248>
+<environment: 0x5cfe870>
[[3]]
function (x)
@@ -2115,7 +2157,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bb7248>
+<environment: 0x5cfe870>
[[4]]
function (x)
@@ -2126,7 +2168,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x5bb7248>
+<environment: 0x5cfe870>
> Map(R1 ^ R1)
[[1]]
@@ -2142,7 +2184,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b84d28>
+<environment: 0x5c50938>
[[2]]
function (x)
@@ -2157,7 +2199,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b84d28>
+<environment: 0x5c50938>
[[3]]
function (x)
@@ -2172,7 +2214,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b84d28>
+<environment: 0x5c50938>
[[4]]
function (x)
@@ -2187,7 +2229,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x5b84d28>
+<environment: 0x5c50938>
>
>
@@ -2213,12 +2255,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("RandVariable-class")
> ### * RandVariable-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVariable-class
> ### Title: Random variable
> ### Aliases: RandVariable-class Map Domain Range compatibleDomains
@@ -2242,7 +2288,7 @@
function (x)
{
}
-<bytecode: 0x47160d0>
+<bytecode: 0x4ff9560>
<environment: namespace:RandVar>
> Domain(R1)
@@ -2289,12 +2335,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("RandVariable")
> ### * RandVariable
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVariable
> ### Title: Generating function for RandVariable-class
> ### Aliases: RandVariable
@@ -2312,7 +2362,7 @@
function (x)
{
}
-<environment: 0x5583290>
+<environment: 0x59304b8>
> Domain(R1)
NULL
@@ -2368,12 +2418,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("RealRandVariable-class")
> ### * RealRandVariable-class
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RealRandVariable-class
> ### Title: Real random variable
> ### Aliases: RealRandVariable-class Range<-,RealRandVariable-method
@@ -2389,12 +2443,16 @@
>
>
>
+>
+> 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")
> cleanEx()
> nameEx("RealRandVariable")
> ### * RealRandVariable
>
> flush(stderr()); flush(stdout())
>
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RealRandVariable
> ### Title: Generating function for RealRandVariable-class
> ### Aliases: RealRandVariable
@@ -2431,10 +2489,13 @@
>
>
>
+>
+> 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")
> ### * <FOOTER>
> ###
> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 5.784 0.044 5.852 0 0
+Time elapsed: 5.524 0.068 5.668 0 0
> grDevices::dev.off()
null device
1
Modified: branches/robast-0.9/pkg/RandVar/tests/tests.Rout.save
===================================================================
--- branches/robast-0.9/pkg/RandVar/tests/tests.Rout.save 2013-01-15 01:03:44 UTC (rev 535)
+++ branches/robast-0.9/pkg/RandVar/tests/tests.Rout.save 2013-01-15 06:59:46 UTC (rev 536)
@@ -1,6 +1,6 @@
-R version 2.15.0 Patched (2012-05-26 r59450) -- "Easter Beagle"
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R Under development (unstable) (2013-01-09 r61595) -- "Unsuffered Consequences"
+Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-unknown-linux-gnu (64-bit)
@@ -29,6 +29,13 @@
:SweaveListingUtils> Utilities for Sweave together with
:SweaveListingUtils> TeX listings package (version 0.6)
:SweaveListingUtils>
+:SweaveListingUtils> NOTE: Support for this package
+:SweaveListingUtils> will stop soon.
+:SweaveListingUtils>
+:SweaveListingUtils> Package 'knitr' is providing the
+:SweaveListingUtils> same functionality in a better
+:SweaveListingUtils> way.
+:SweaveListingUtils>
:SweaveListingUtils> Some functions from package 'base'
:SweaveListingUtils> are intentionally masked ---see
:SweaveListingUtils> SweaveListingMASK().
@@ -48,7 +55,7 @@
Attaching package: 'SweaveListingUtils'
-The following object(s) are masked from 'package:base':
+The following object is masked from 'package:base':
library, require
@@ -74,7 +81,7 @@
Attaching package: 'distr'
-The following object(s) are masked from 'package:stats':
+The following object is masked from 'package:stats':
df, qqplot, sd
@@ -98,7 +105,7 @@
Attaching package: 'distrEx'
-The following object(s) are masked from 'package:stats':
+The following object is masked from 'package:stats':
IQR, mad, median, var
@@ -132,7 +139,7 @@
function (x)
{
}
-<environment: 0x6213468>
+<environment: 0x64561a8>
> Domain(R1)
NULL
@@ -402,7 +409,7 @@
}
t(f(x))
}
-<environment: 0x5b7fdc8>
+<environment: 0x5f5be28>
> dimension(R6)
[1] 6
@@ -491,19 +498,19 @@
> ## "Math" group
> system.time(Map(log(abs(R4))), gcFirst = TRUE)
user system elapsed
- 0.000 0.000 0.002
+ 0.004 0.000 0.001
> system.time(Map(gamma(R7)), gcFirst = TRUE)
user system elapsed
- 0.000 0.000 0.003
+ 0.000 0.000 0.002
> system.time(Map(exp(RL1)[[1]]), gcFirst = TRUE)
user system elapsed
- 0.004 0.000 0.004
+ 0.004 0.000 0.005
>
>
> ## "Arith" group
> system.time(Map(3 + R3), gcFirst = TRUE)
user system elapsed
- 0.004 0.000 0.001
+ 0.000 0.000 0.001
> Map(c(1,3,5) * R3)
[[1]]
function (x)
@@ -514,7 +521,7 @@
}
1 * f2(x)
}
-<environment: 0x99773b8>
+<environment: 0x99eff68>
[[2]]
function (x)
@@ -525,7 +532,7 @@
}
3 * f2(x)
}
-<environment: 0x99773b8>
+<environment: 0x99eff68>
[[3]]
function (x)
@@ -536,7 +543,7 @@
}
5 * f2(x)
}
-<environment: 0x99773b8>
+<environment: 0x99eff68>
[[4]]
function (x)
@@ -547,7 +554,7 @@
}
1 * f2(x)
}
-<environment: 0x99773b8>
+<environment: 0x99eff68>
Warning message:
In c(1, 3, 5) * R3 :
@@ -565,7 +572,7 @@
}
1:2 * f2(x)
}
-<environment: 0x98ad378>
+<environment: 0x98a1940>
[[2]]
function (x)
@@ -576,7 +583,7 @@
}
1:2 * f2(x)
}
-<environment: 0x98ad378>
+<environment: 0x98a1940>
[[3]]
function (x)
@@ -587,7 +594,7 @@
}
1:2 * f2(x)
}
-<environment: 0x98ad378>
+<environment: 0x98a1940>
[[4]]
function (x)
@@ -598,7 +605,7 @@
}
1:2 * f2(x)
}
-<environment: 0x98ad378>
+<environment: 0x98a1940>
> Map(2/R6)
[[1]]
@@ -610,7 +617,7 @@
}
2/f2(x)
}
-<environment: 0x97b5c78>
+<environment: 0x97cb968>
[[2]]
function (x)
@@ -621,7 +628,7 @@
}
2/f2(x)
}
-<environment: 0x97b5c78>
+<environment: 0x97cb968>
[[3]]
function (x)
@@ -632,7 +639,7 @@
}
2/f2(x)
}
-<environment: 0x97b5c78>
+<environment: 0x97cb968>
[[4]]
function (x)
@@ -643,7 +650,7 @@
}
2/f2(x)
}
-<environment: 0x97b5c78>
+<environment: 0x97cb968>
[[5]]
function (x)
@@ -654,7 +661,7 @@
}
2/f2(x)
}
-<environment: 0x97b5c78>
+<environment: 0x97cb968>
[[6]]
function (x)
@@ -665,7 +672,7 @@
}
2/f2(x)
}
-<environment: 0x97b5c78>
+<environment: 0x97cb968>
> Map(c(1,3,5) %% R6)
[[1]]
@@ -677,7 +684,7 @@
}
1%%f2(x)
}
-<environment: 0x96cef18>
+<environment: 0x9709210>
[[2]]
function (x)
@@ -688,7 +695,7 @@
}
3%%f2(x)
}
-<environment: 0x96cef18>
+<environment: 0x9709210>
[[3]]
function (x)
@@ -699,7 +706,7 @@
}
5%%f2(x)
}
-<environment: 0x96cef18>
+<environment: 0x9709210>
[[4]]
function (x)
@@ -710,7 +717,7 @@
}
1%%f2(x)
}
-<environment: 0x96cef18>
+<environment: 0x9709210>
[[5]]
function (x)
@@ -721,7 +728,7 @@
}
3%%f2(x)
}
-<environment: 0x96cef18>
+<environment: 0x9709210>
[[6]]
function (x)
@@ -732,7 +739,7 @@
}
5%%f2(x)
}
-<environment: 0x96cef18>
+<environment: 0x9709210>
> Map(R4 - 5)
[[1]]
@@ -744,7 +751,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x96607d8>
+<environment: 0x969f040>
[[2]]
function (x)
@@ -755,7 +762,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x96607d8>
+<environment: 0x969f040>
[[3]]
function (x)
@@ -766,7 +773,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x96607d8>
+<environment: 0x969f040>
[[4]]
function (x)
@@ -777,7 +784,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x96607d8>
+<environment: 0x969f040>
> Map(R6 %/% 2)
[[1]]
@@ -789,7 +796,7 @@
}
f1(x)%/%2
}
-<environment: 0x9585498>
+<environment: 0x95c14a8>
[[2]]
function (x)
@@ -800,7 +807,7 @@
}
f1(x)%/%2
}
-<environment: 0x9585498>
+<environment: 0x95c14a8>
[[3]]
function (x)
@@ -811,7 +818,7 @@
}
f1(x)%/%2
}
-<environment: 0x9585498>
+<environment: 0x95c14a8>
[[4]]
function (x)
@@ -822,7 +829,7 @@
}
f1(x)%/%2
}
-<environment: 0x9585498>
+<environment: 0x95c14a8>
[[5]]
function (x)
@@ -833,7 +840,7 @@
}
f1(x)%/%2
}
-<environment: 0x9585498>
+<environment: 0x95c14a8>
[[6]]
function (x)
@@ -844,7 +851,7 @@
}
f1(x)%/%2
}
-<environment: 0x9585498>
+<environment: 0x95c14a8>
> Map(R3 ^ R3)
[[1]]
@@ -860,7 +867,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x951ae70>
+<environment: 0x92aef90>
[[2]]
function (x)
@@ -875,7 +882,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x951ae70>
+<environment: 0x92aef90>
[[3]]
function (x)
@@ -890,7 +897,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x951ae70>
+<environment: 0x92aef90>
[[4]]
function (x)
@@ -905,7 +912,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x951ae70>
+<environment: 0x92aef90>
> Map(R7 * R7)
[[1]]
@@ -921,7 +928,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x90c88b0>
+<environment: 0x65731f8>
[[2]]
function (x)
@@ -936,7 +943,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x90c88b0>
+<environment: 0x65731f8>
[[3]]
function (x)
@@ -951,7 +958,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x90c88b0>
+<environment: 0x65731f8>
[[4]]
function (x)
@@ -966,7 +973,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x90c88b0>
+<environment: 0x65731f8>
> Map((1 + RL1)[[1]])
[[1]]
@@ -978,7 +985,7 @@
}
1 + f2(x)
}
-<environment: 0x80ff498>
+<environment: 0x64ee8d0>
[[2]]
function (x)
@@ -989,7 +996,7 @@
}
1 + f2(x)
}
-<environment: 0x80ff498>
+<environment: 0x64ee8d0>
[[3]]
function (x)
@@ -1000,7 +1007,7 @@
}
1 + f2(x)
}
-<environment: 0x80ff498>
+<environment: 0x64ee8d0>
[[4]]
function (x)
@@ -1011,7 +1018,7 @@
}
1 + f2(x)
}
-<environment: 0x80ff498>
+<environment: 0x64ee8d0>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -1023,7 +1030,7 @@
}
f1(x) * 2
}
-<environment: 0x65028d8>
+<environment: 0x6434530>
[[2]]
function (x)
@@ -1034,7 +1041,7 @@
}
f1(x) * 2
}
-<environment: 0x65028d8>
+<environment: 0x6434530>
[[3]]
function (x)
@@ -1045,7 +1052,7 @@
}
f1(x) * 2
}
-<environment: 0x65028d8>
+<environment: 0x6434530>
[[4]]
function (x)
@@ -1056,7 +1063,7 @@
}
f1(x) * 2
}
-<environment: 0x65028d8>
+<environment: 0x6434530>
[[5]]
function (x)
@@ -1067,7 +1074,7 @@
}
f1(x) * 2
}
-<environment: 0x65028d8>
+<environment: 0x6434530>
[[6]]
function (x)
@@ -1078,11 +1085,11 @@
}
f1(x) * 2
}
-<environment: 0x65028d8>
+<environment: 0x6434530>
> system.time(Map((RL1 %% RL1)[[3]]), gcFirst = TRUE)
user system elapsed
- 0.008 0.000 0.008
+ 0.004 0.000 0.006
>
>
> ## "%*%"
@@ -1152,7 +1159,7 @@
}
f1(x) + c(13L, 15L) %*% f2(x)
}
-<environment: 0x968bc08>
+<environment: 0x976a010>
> M1[2,]
[1] 2 4 6 8 10 12 14 16
> Map(R8)[[2]]
@@ -1188,7 +1195,7 @@
}
f1(x) + c(14L, 16L) %*% f2(x)
}
-<environment: 0x968bc08>
+<environment: 0x976a010>
> M2 <- matrix(1:2, ncol = 2)
> (R9 <- M2 %*% R7)
An object of class "EuclRandMatrix"
@@ -1238,7 +1245,7 @@
}
f1(x) + 2L %*% f2(x)
}
-<environment: 0x9174418>
+<environment: 0x92bd730>
[[2]]
function (x)
@@ -1257,7 +1264,7 @@
}
f1(x) + 2L %*% f2(x)
}
-<environment: 0x900d3e0>
+<environment: 0x661feb8>
> Map(1:4 %*% R3) # inner product
[[1]]
@@ -1293,7 +1300,7 @@
}
f1(x) + 4L %*% f2(x)
}
-<environment: 0x6660868>
+<environment: 0x64a2b30>
> Map(1:2 %*% R7) # corresponds to Map(t(1:2) %*% R7)
[[1]]
@@ -1313,7 +1320,7 @@
}
f1(x) + 2L %*% f2(x)
}
-<environment: 0x64b77d0>
+<environment: 0x5e672c0>
[[2]]
function (x)
@@ -1332,7 +1339,7 @@
}
f1(x) + 2L %*% f2(x)
}
-<environment: 0x63ae1f8>
+<environment: 0x5400900>
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/robast -r 536
More information about the Robast-commits
mailing list