[Robast-commits] r1159 - in branches/robast-1.2/pkg/RandVar: R inst tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sat Aug 18 22:28:44 CEST 2018
Author: ruckdeschel
Date: 2018-08-18 22:28:44 +0200 (Sat, 18 Aug 2018)
New Revision: 1159
Modified:
branches/robast-1.2/pkg/RandVar/R/Expectation.R
branches/robast-1.2/pkg/RandVar/inst/NEWS
branches/robast-1.2/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save
Log:
[RandVar] branch 1.2
+ E methods for RandVariables if (diagnostic==TRUE) return diagnostic attributes
of S3 class "DiagnosticClass"
Modified: branches/robast-1.2/pkg/RandVar/R/Expectation.R
===================================================================
--- branches/robast-1.2/pkg/RandVar/R/Expectation.R 2018-08-16 20:04:10 UTC (rev 1158)
+++ branches/robast-1.2/pkg/RandVar/R/Expectation.R 2018-08-18 20:28:44 UTC (rev 1159)
@@ -11,7 +11,10 @@
if(diagnostic) diagn[[i]] <- attr(buf, "diagnostic")
if(nrdim>1) res[i,] <- buf else res[i] <- buf
}
- if(!is.null(diagn)) attr(res,"diagnostic") <- diagn
+ if(!is.null(diagn)){
+ attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
+ }
return(res)
}
@@ -34,7 +37,10 @@
res[i] <- buf <- do.call(E, Eargs)
if(diagnostic) diagn[[i]] <- attr(buf, "diagnostic")
}
- if(!is.null(diagn)) attr(res,"diagnostic") <- diagn
+ if(!is.null(diagn)){
+ attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
+ }
return(res)
}
@@ -53,7 +59,10 @@
res <- E(object, as(fun, "EuclRandVariable"), useApply = useApply, ..., diagnostic = diagnostic)
if(diagnostic) diagn <- attr(res, "diagnostic")
res <- matrix(res, nrow = nrow(fun))
- if(!is.null(diagn)) attr(res,"diagnostic") <- diagn
+ if(!is.null(diagn)){
+ attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
+ }
return(res)
}
.locElistfun <- function(object, fun, useApply = TRUE, ..., diagnostic = FALSE){
@@ -66,7 +75,10 @@
res[[i]] <- buf <- E(object, fun = fun[[i]], useApply = useApply, ..., diagnostic = diagnostic)
if(diagnostic) diagn[[i]] <- attr(buf, "diagnostic")
}
- if(!is.null(diagn)) attr(res,"diagnostic") <- diagn
+ if(!is.null(diagn)){
+ attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
+ }
return(res)
}
@@ -107,7 +119,10 @@
withCond = withCond, useApply = useApply, ..., diagnostic = diagnostic)
if(diagnostic) diagn <- attr(res, "diagnostic")
res <- matrix(res, nrow = nrow(fun))
- if(!is.null(diagn)) attr(res,"diagnostic") <- diagn
+ if(!is.null(diagn)){
+ attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
+ }
return(res)
}
@@ -119,7 +134,10 @@
res[[i]] <- buf <- E(object, fun=fun[[i]], cond = cond, withCond = withCond, useApply = useApply, ..., diagnostic = diagnostic)
if(diagnostic) diagn[[i]] <- attr(buf, "diagnostic")
}
- if(!is.null(diagn)) attr(res,"diagnostic") <- diagn
+ if(!is.null(diagn)){
+ attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
+ }
return(res)
}
@@ -137,6 +155,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- mc
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -151,6 +170,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -173,6 +193,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -188,6 +209,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -211,6 +233,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -226,6 +249,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -249,6 +273,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -275,6 +300,7 @@
diagn[["call"]] <- match.call()
res <- array(res, c(nrow(fun), ncol(fun), fun at Range@dimension))
attr(res, "diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
return(res)
}
})
@@ -296,6 +322,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -320,6 +347,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -336,6 +364,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -361,6 +390,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -377,6 +407,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -402,6 +433,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
@@ -418,6 +450,7 @@
diagn <- attr(res,"diagnostic")
diagn[["call"]] <- match.call()
attr(res,"diagnostic") <- diagn
+ class(attr(res,"diagnostic")) <- "DiagnosticClass"
}
return(res)
})
Modified: branches/robast-1.2/pkg/RandVar/inst/NEWS
===================================================================
--- branches/robast-1.2/pkg/RandVar/inst/NEWS 2018-08-16 20:04:10 UTC (rev 1158)
+++ branches/robast-1.2/pkg/RandVar/inst/NEWS 2018-08-18 20:28:44 UTC (rev 1159)
@@ -22,6 +22,8 @@
which is not yet used.
+ E methods for RandVariables use filtering of dots arguments
(like E()-methods in distrEx v 2.8.0)
++ E methods for RandVariables if (diagnostic==TRUE) return diagnostic attributes
+ of S3 class "DiagnosticClass"
#######################################
version 1.1
Modified: branches/robast-1.2/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save
===================================================================
--- branches/robast-1.2/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2018-08-16 20:04:10 UTC (rev 1158)
+++ branches/robast-1.2/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2018-08-18 20:28:44 UTC (rev 1159)
@@ -1,6 +1,6 @@
-R Under development (unstable) (2016-04-22 r70532) -- "Unsuffered Consequences"
-Copyright (C) 2016 The R Foundation for Statistical Computing
+R version 3.5.1 RC (2018-06-24 r74935) -- "Feather Spray"
+Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: i386-w64-mingw32/i386 (32-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -21,52 +21,29 @@
> source(file.path(R.home("share"), "R", "examples-header.R"))
> options(warn = 1)
> options(pager = "console")
+> 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]
++ options(OutDec = '.')
++ format(x[1L:3L], digits = 7L)
++ },
++ pos = 'CheckExEnv')
+>
+> ### * </HEADER>
> library('RandVar')
Loading required package: distr
Loading required package: startupmsg
-:startupmsg> Utilities for Start-Up Messages (version 0.9.3)
+:startupmsg> Utilities for Start-Up Messages (version 0.9.6)
:startupmsg>
:startupmsg> For more information see ?"startupmsg",
:startupmsg> NEWS("startupmsg")
Loading required package: sfsmisc
-Loading required package: SweaveListingUtils
-:SweaveListingUtils> Utilities for Sweave Together with
-:SweaveListingUtils> TeX 'listings' Package (version
-:SweaveListingUtils> 0.7.3)
-: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().
-:SweaveListingUtils>
-:SweaveListingUtils> Note that global options are
-:SweaveListingUtils> controlled by
-:SweaveListingUtils> SweaveListingoptions() ---c.f.
-:SweaveListingUtils> ?"SweaveListingoptions".
-:SweaveListingUtils>
-:SweaveListingUtils> For more information see
-:SweaveListingUtils> ?"SweaveListingUtils",
-:SweaveListingUtils> NEWS("SweaveListingUtils")
-:SweaveListingUtils> There is a vignette to this
-:SweaveListingUtils> package; try
-:SweaveListingUtils> vignette("ExampleSweaveListingUtils").
-
-
-Attaching package: 'SweaveListingUtils'
-
-The following objects are masked from 'package:base':
-
- library, require
-
:distr> Object Oriented Implementation of Distributions (version
-:distr> 2.6)
+:distr> 2.8.0)
:distr>
:distr> Attention: Arithmetics on distribution objects are
:distr> understood as operations on corresponding random variables
@@ -92,7 +69,7 @@
df, qqplot, sd
Loading required package: distrEx
-:distrEx> Extensions of Package 'distr' (version 2.6)
+:distrEx> Extensions of Package 'distr' (version 2.8.0)
:distrEx>
:distrEx> Note: Packages "e1071", "moments", "fBasics" should be
:distrEx> attached /before/ package "distrEx". See
@@ -115,7 +92,7 @@
IQR, mad, median, var
-:RandVar> Implementation of Random Variables (version 1.0)
+:RandVar> Implementation of Random Variables (version 1.2.0)
:RandVar>
:RandVar> For more information see ?"RandVar", NEWS("RandVar"), as
:RandVar> well as
@@ -125,12 +102,14 @@
>
> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
+> base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv')
> cleanEx()
> nameEx("0RandVar-package")
> ### * 0RandVar-package
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVar-package
> ### Title: Implementation of Random Variables
> ### Aliases: RandVar-package RandVar
@@ -143,12 +122,15 @@
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandMatrix-class
> ### Title: Euclidean random matrix
> ### Aliases: EuclRandMatrix-class
@@ -215,7 +197,7 @@
}
t(f(x))
}
-<environment: 0x06622d4c>
+<environment: 0x0bfc6f78>
>
> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
@@ -227,10 +209,10 @@
[[2]] Distribution Object of Class: AbscontDistribution
[[3]] Distribution Object of Class: AbscontDistribution
[[4]] Distribution Object of Class: AbscontDistribution
-Warning in function (object) :
+Warning in new("standardGeneric", .Data = function (object) :
arithmetics on distributions are understood as operations on r.v.'s
see 'distrARITH()'; for switching off this warning see '?distroptions'
-Warning in function (object) :
+Warning in new("standardGeneric", .Data = function (object) :
slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions'
> plot(DL)
>
@@ -244,7 +226,7 @@
}
gamma(f1(x))
}
-<environment: 0x09941248>
+<environment: 0x0b9db190>
[[2]]
function (x)
@@ -255,7 +237,7 @@
}
gamma(f1(x))
}
-<environment: 0x09941248>
+<environment: 0x0b9db190>
[[3]]
function (x)
@@ -266,7 +248,7 @@
}
gamma(f1(x))
}
-<environment: 0x09941248>
+<environment: 0x0b9db190>
[[4]]
function (x)
@@ -277,7 +259,7 @@
}
gamma(f1(x))
}
-<environment: 0x09941248>
+<environment: 0x0b9db190>
>
> ## "Arith" group
@@ -291,7 +273,7 @@
}
2/f2(x)
}
-<environment: 0x0997564c>
+<environment: 0x0ba3de98>
[[2]]
function (x)
@@ -302,7 +284,7 @@
}
2/f2(x)
}
-<environment: 0x0997564c>
+<environment: 0x0ba3de98>
[[3]]
function (x)
@@ -313,7 +295,7 @@
}
2/f2(x)
}
-<environment: 0x0997564c>
+<environment: 0x0ba3de98>
[[4]]
function (x)
@@ -324,7 +306,7 @@
}
2/f2(x)
}
-<environment: 0x0997564c>
+<environment: 0x0ba3de98>
[[5]]
function (x)
@@ -335,7 +317,7 @@
}
2/f2(x)
}
-<environment: 0x0997564c>
+<environment: 0x0ba3de98>
[[6]]
function (x)
@@ -346,7 +328,7 @@
}
2/f2(x)
}
-<environment: 0x0997564c>
+<environment: 0x0ba3de98>
> Map(R2 * R2)
[[1]]
@@ -362,7 +344,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099b1bc8>
+<environment: 0x0bab00f8>
[[2]]
function (x)
@@ -377,7 +359,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099b1bc8>
+<environment: 0x0bab00f8>
[[3]]
function (x)
@@ -392,7 +374,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099b1bc8>
+<environment: 0x0bab00f8>
[[4]]
function (x)
@@ -407,17 +389,20 @@
}
f1(x) * f2(x)
}
-<environment: 0x099b1bc8>
+<environment: 0x0bab00f8>
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandMatrix
> ### Title: Generating function for EuclRandMatrix-class
> ### Aliases: EuclRandMatrix
@@ -458,7 +443,7 @@
}
t(f(x))
}
-<environment: 0x09a0ac3c>
+<environment: 0x0bd970d8>
>
> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1)
@@ -468,10 +453,10 @@
[[2]] Distribution Object of Class: AbscontDistribution
[[3]] Distribution Object of Class: AbscontDistribution
[[4]] Distribution Object of Class: AbscontDistribution
-Warning in function (object) :
+Warning in new("standardGeneric", .Data = function (object) :
arithmetics on distributions are understood as operations on r.v.'s
see 'distrARITH()'; for switching off this warning see '?distroptions'
-Warning in function (object) :
+Warning in new("standardGeneric", .Data = function (object) :
slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions'
> plot(DL)
>
@@ -485,7 +470,7 @@
}
gamma(f1(x))
}
-<environment: 0x0994fa94>
+<environment: 0x0a31f498>
[[2]]
function (x)
@@ -496,7 +481,7 @@
}
gamma(f1(x))
}
-<environment: 0x0994fa94>
+<environment: 0x0a31f498>
[[3]]
function (x)
@@ -507,7 +492,7 @@
}
gamma(f1(x))
}
-<environment: 0x0994fa94>
+<environment: 0x0a31f498>
[[4]]
function (x)
@@ -518,7 +503,7 @@
}
gamma(f1(x))
}
-<environment: 0x0994fa94>
+<environment: 0x0a31f498>
>
> ## "Arith" group
@@ -532,7 +517,7 @@
}
2/f2(x)
}
-<environment: 0x09939430>
+<environment: 0x0a37c540>
[[2]]
function (x)
@@ -543,7 +528,7 @@
}
2/f2(x)
}
-<environment: 0x09939430>
+<environment: 0x0a37c540>
[[3]]
function (x)
@@ -554,7 +539,7 @@
}
2/f2(x)
}
-<environment: 0x09939430>
+<environment: 0x0a37c540>
[[4]]
function (x)
@@ -565,7 +550,7 @@
}
2/f2(x)
}
-<environment: 0x09939430>
+<environment: 0x0a37c540>
[[5]]
function (x)
@@ -576,7 +561,7 @@
}
2/f2(x)
}
-<environment: 0x09939430>
+<environment: 0x0a37c540>
[[6]]
function (x)
@@ -587,7 +572,7 @@
}
2/f2(x)
}
-<environment: 0x09939430>
+<environment: 0x0a37c540>
> Map(R2 * R2)
[[1]]
@@ -603,7 +588,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099118a4>
+<environment: 0x0a3d8928>
[[2]]
function (x)
@@ -618,7 +603,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099118a4>
+<environment: 0x0a3d8928>
[[3]]
function (x)
@@ -633,7 +618,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099118a4>
+<environment: 0x0a3d8928>
[[4]]
function (x)
@@ -648,7 +633,7 @@
}
f1(x) * f2(x)
}
-<environment: 0x099118a4>
+<environment: 0x0a3d8928>
>
>
@@ -686,12 +671,15 @@
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVarList-class
> ### Title: List of Euclidean random variables
> ### Aliases: EuclRandVarList-class numberOfMaps
@@ -766,7 +754,7 @@
}
exp(f1(x))
}
-<environment: 0x062a02a8>
+<environment: 0x0a792f08>
[[2]]
function (x)
@@ -777,7 +765,7 @@
}
exp(f1(x))
}
-<environment: 0x062a02a8>
+<environment: 0x0a792f08>
[[3]]
function (x)
@@ -788,7 +776,7 @@
}
exp(f1(x))
}
-<environment: 0x062a02a8>
+<environment: 0x0a792f08>
[[4]]
function (x)
@@ -799,7 +787,7 @@
}
exp(f1(x))
}
-<environment: 0x062a02a8>
+<environment: 0x0a792f08>
>
> ## "Arith" group
@@ -813,7 +801,7 @@
}
1 + f2(x)
}
-<environment: 0x0662c260>
+<environment: 0x0a84bcc0>
[[2]]
function (x)
@@ -824,7 +812,7 @@
}
1 + f2(x)
}
-<environment: 0x0662c260>
+<environment: 0x0a84bcc0>
[[3]]
function (x)
@@ -835,7 +823,7 @@
}
1 + f2(x)
}
-<environment: 0x0662c260>
+<environment: 0x0a84bcc0>
[[4]]
function (x)
@@ -846,7 +834,7 @@
}
1 + f2(x)
}
-<environment: 0x0662c260>
+<environment: 0x0a84bcc0>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -858,7 +846,7 @@
}
f1(x) * 2
}
-<environment: 0x0650df70>
+<environment: 0x0a96e5c0>
[[2]]
function (x)
@@ -869,7 +857,7 @@
}
f1(x) * 2
}
-<environment: 0x0650df70>
+<environment: 0x0a96e5c0>
[[3]]
function (x)
@@ -880,7 +868,7 @@
}
f1(x) * 2
}
-<environment: 0x0650df70>
+<environment: 0x0a96e5c0>
[[4]]
function (x)
@@ -891,7 +879,7 @@
}
f1(x) * 2
}
-<environment: 0x0650df70>
+<environment: 0x0a96e5c0>
[[5]]
function (x)
@@ -902,7 +890,7 @@
}
f1(x) * 2
}
-<environment: 0x0650df70>
+<environment: 0x0a96e5c0>
[[6]]
function (x)
@@ -913,7 +901,7 @@
}
f1(x) * 2
}
-<environment: 0x0650df70>
+<environment: 0x0a96e5c0>
> Map((RL1 / RL1)[[3]])
[[1]]
@@ -929,7 +917,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0610b264>
+<environment: 0x0aa95f38>
[[2]]
function (x)
@@ -944,7 +932,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0610b264>
+<environment: 0x0aa95f38>
[[3]]
function (x)
@@ -959,7 +947,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0610b264>
+<environment: 0x0aa95f38>
[[4]]
function (x)
@@ -974,17 +962,20 @@
}
f1(x)/f2(x)
}
-<environment: 0x0610b264>
+<environment: 0x0aa95f38>
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVarList
> ### Title: Generating function for EuclRandVarList-class
> ### Aliases: EuclRandVarList
@@ -1040,7 +1031,7 @@
}
exp(f1(x))
}
-<environment: 0x09121c84>
+<environment: 0x0abd3d98>
[[2]]
function (x)
@@ -1051,7 +1042,7 @@
}
exp(f1(x))
}
-<environment: 0x09121c84>
+<environment: 0x0abd3d98>
[[3]]
function (x)
@@ -1062,7 +1053,7 @@
}
exp(f1(x))
}
-<environment: 0x09121c84>
+<environment: 0x0abd3d98>
[[4]]
function (x)
@@ -1073,7 +1064,7 @@
}
exp(f1(x))
}
-<environment: 0x09121c84>
+<environment: 0x0abd3d98>
>
> ## "Arith" group
@@ -1087,7 +1078,7 @@
}
1 + f2(x)
}
-<environment: 0x08f59efc>
+<environment: 0x0ac38028>
[[2]]
function (x)
@@ -1098,7 +1089,7 @@
}
1 + f2(x)
}
-<environment: 0x08f59efc>
+<environment: 0x0ac38028>
[[3]]
function (x)
@@ -1109,7 +1100,7 @@
}
1 + f2(x)
}
-<environment: 0x08f59efc>
+<environment: 0x0ac38028>
[[4]]
function (x)
@@ -1120,7 +1111,7 @@
}
1 + f2(x)
}
-<environment: 0x08f59efc>
+<environment: 0x0ac38028>
> Map((RL1 * 2)[[2]])
[[1]]
@@ -1132,7 +1123,7 @@
}
f1(x) * 2
}
-<environment: 0x08c4eadc>
+<environment: 0x0ad172e8>
[[2]]
function (x)
@@ -1143,7 +1134,7 @@
}
f1(x) * 2
}
-<environment: 0x08c4eadc>
+<environment: 0x0ad172e8>
[[3]]
function (x)
@@ -1154,7 +1145,7 @@
}
f1(x) * 2
}
-<environment: 0x08c4eadc>
+<environment: 0x0ad172e8>
[[4]]
function (x)
@@ -1165,7 +1156,7 @@
}
f1(x) * 2
}
-<environment: 0x08c4eadc>
+<environment: 0x0ad172e8>
[[5]]
function (x)
@@ -1176,7 +1167,7 @@
}
f1(x) * 2
}
-<environment: 0x08c4eadc>
+<environment: 0x0ad172e8>
[[6]]
function (x)
@@ -1187,7 +1178,7 @@
}
f1(x) * 2
}
-<environment: 0x08c4eadc>
+<environment: 0x0ad172e8>
> Map((RL1 / RL1)[[3]])
[[1]]
@@ -1203,7 +1194,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0857eeb8>
+<environment: 0x0ade5a50>
[[2]]
function (x)
@@ -1218,7 +1209,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0857eeb8>
+<environment: 0x0ade5a50>
[[3]]
function (x)
@@ -1233,7 +1224,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0857eeb8>
+<environment: 0x0ade5a50>
[[4]]
function (x)
@@ -1248,7 +1239,7 @@
}
f1(x)/f2(x)
}
-<environment: 0x0857eeb8>
+<environment: 0x0ade5a50>
>
> ## The function is currently defined as
@@ -1262,12 +1253,15 @@
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVariable-class
> ### Title: Euclidean random variable
> ### Aliases: EuclRandVariable-class
@@ -1449,7 +1443,7 @@
}
log(f1(x))
}
-<environment: 0x099f2a68>
+<environment: 0x09cc9600>
[[2]]
function (x)
@@ -1464,7 +1458,7 @@
}
log(f1(x))
}
-<environment: 0x099f2a68>
+<environment: 0x09cc9600>
[[3]]
function (x)
@@ -1479,7 +1473,7 @@
}
log(f1(x))
}
-<environment: 0x099f2a68>
+<environment: 0x09cc9600>
[[4]]
function (x)
@@ -1494,7 +1488,7 @@
}
log(f1(x))
}
-<environment: 0x099f2a68>
+<environment: 0x09cc9600>
>
> # "Arith" group generic
@@ -1508,7 +1502,7 @@
}
3 + f2(x)
}
-<environment: 0x099ec06c>
+<environment: 0x09cdcf70>
[[2]]
function (x)
@@ -1519,7 +1513,7 @@
}
3 + f2(x)
}
-<environment: 0x099ec06c>
+<environment: 0x09cdcf70>
[[3]]
function (x)
@@ -1530,7 +1524,7 @@
}
3 + f2(x)
}
-<environment: 0x099ec06c>
+<environment: 0x09cdcf70>
[[4]]
function (x)
@@ -1541,7 +1535,7 @@
}
3 + f2(x)
}
-<environment: 0x099ec06c>
+<environment: 0x09cdcf70>
> Map(c(1,3,5) * R1)
Warning in c(1, 3, 5) * R1 :
@@ -1555,7 +1549,7 @@
}
1 * f2(x)
}
-<environment: 0x099d9010>
+<environment: 0x09d17188>
[[2]]
function (x)
@@ -1566,7 +1560,7 @@
}
3 * f2(x)
}
-<environment: 0x099d9010>
+<environment: 0x09d17188>
[[3]]
function (x)
@@ -1577,7 +1571,7 @@
}
5 * f2(x)
}
-<environment: 0x099d9010>
+<environment: 0x09d17188>
[[4]]
function (x)
@@ -1588,7 +1582,7 @@
}
1 * f2(x)
}
-<environment: 0x099d9010>
+<environment: 0x09d17188>
> try(1:5 * R1) # error
Error in 1:5 * R1 :
@@ -1603,7 +1597,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099aa1d8>
+<environment: 0x09d988c0>
[[2]]
function (x)
@@ -1614,7 +1608,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099aa1d8>
+<environment: 0x09d988c0>
[[3]]
function (x)
@@ -1625,7 +1619,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099aa1d8>
+<environment: 0x09d988c0>
[[4]]
function (x)
@@ -1636,7 +1630,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099aa1d8>
+<environment: 0x09d988c0>
> Map(R2 - 5)
[[1]]
@@ -1648,7 +1642,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x09996cc4>
+<environment: 0x09dbf540>
[[2]]
function (x)
@@ -1659,7 +1653,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x09996cc4>
+<environment: 0x09dbf540>
[[3]]
function (x)
@@ -1670,7 +1664,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x09996cc4>
+<environment: 0x09dbf540>
[[4]]
function (x)
@@ -1681,7 +1675,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x09996cc4>
+<environment: 0x09dbf540>
> Map(R1 ^ R1)
[[1]]
@@ -1697,7 +1691,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x0998425c>
+<environment: 0x09e68cb8>
[[2]]
function (x)
@@ -1712,7 +1706,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x0998425c>
+<environment: 0x09e68cb8>
[[3]]
function (x)
@@ -1727,7 +1721,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x0998425c>
+<environment: 0x09e68cb8>
[[4]]
function (x)
@@ -1742,18 +1736,21 @@
}
f1(x)^f2(x)
}
-<environment: 0x0998425c>
+<environment: 0x09e68cb8>
>
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: EuclRandVariable
> ### Title: Generating function for EuclRandVariable-class
> ### Aliases: EuclRandVariable
@@ -1902,7 +1899,7 @@
}
log(f1(x))
}
-<environment: 0x099d2fe8>
+<environment: 0x09bce068>
[[2]]
function (x)
@@ -1917,7 +1914,7 @@
}
log(f1(x))
}
-<environment: 0x099d2fe8>
+<environment: 0x09bce068>
[[3]]
function (x)
@@ -1932,7 +1929,7 @@
}
log(f1(x))
}
-<environment: 0x099d2fe8>
+<environment: 0x09bce068>
[[4]]
function (x)
@@ -1947,7 +1944,7 @@
}
log(f1(x))
}
-<environment: 0x099d2fe8>
+<environment: 0x09bce068>
>
> # "Arith" group generic
@@ -1961,7 +1958,7 @@
}
3 + f2(x)
}
-<environment: 0x099caea4>
+<environment: 0x09bdb280>
[[2]]
function (x)
@@ -1972,7 +1969,7 @@
}
3 + f2(x)
}
-<environment: 0x099caea4>
+<environment: 0x09bdb280>
[[3]]
function (x)
@@ -1983,7 +1980,7 @@
}
3 + f2(x)
}
-<environment: 0x099caea4>
+<environment: 0x09bdb280>
[[4]]
function (x)
@@ -1994,7 +1991,7 @@
}
3 + f2(x)
}
-<environment: 0x099caea4>
+<environment: 0x09bdb280>
> Map(c(1,3,5) * R1)
Warning in c(1, 3, 5) * R1 :
@@ -2008,7 +2005,7 @@
}
1 * f2(x)
}
-<environment: 0x099c3444>
+<environment: 0x09bf8ce0>
[[2]]
function (x)
@@ -2019,7 +2016,7 @@
}
3 * f2(x)
}
-<environment: 0x099c3444>
+<environment: 0x09bf8ce0>
[[3]]
function (x)
@@ -2030,7 +2027,7 @@
}
5 * f2(x)
}
-<environment: 0x099c3444>
+<environment: 0x09bf8ce0>
[[4]]
function (x)
@@ -2041,7 +2038,7 @@
}
1 * f2(x)
}
-<environment: 0x099c3444>
+<environment: 0x09bf8ce0>
> try(1:5 * R1) # error
Error in 1:5 * R1 :
@@ -2056,7 +2053,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099b121c>
+<environment: 0x09c33d70>
[[2]]
function (x)
@@ -2067,7 +2064,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099b121c>
+<environment: 0x09c33d70>
[[3]]
function (x)
@@ -2078,7 +2075,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099b121c>
+<environment: 0x09c33d70>
[[4]]
function (x)
@@ -2089,7 +2086,7 @@
}
1:2 * f2(x)
}
-<environment: 0x099b121c>
+<environment: 0x09c33d70>
> Map(R2 - 5)
[[1]]
@@ -2101,7 +2098,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x099a8528>
+<environment: 0x09c49b80>
[[2]]
function (x)
@@ -2112,7 +2109,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x099a8528>
+<environment: 0x09c49b80>
[[3]]
function (x)
@@ -2123,7 +2120,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x099a8528>
+<environment: 0x09c49b80>
[[4]]
function (x)
@@ -2134,7 +2131,7 @@
}
f1(x) - c(5, 5)
}
-<environment: 0x099a8528>
+<environment: 0x09c49b80>
> Map(R1 ^ R1)
[[1]]
@@ -2150,7 +2147,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x099a00c0>
+<environment: 0x09c7c418>
[[2]]
function (x)
@@ -2165,7 +2162,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x099a00c0>
+<environment: 0x09c7c418>
[[3]]
function (x)
@@ -2180,7 +2177,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x099a00c0>
+<environment: 0x09c7c418>
[[4]]
function (x)
@@ -2195,7 +2192,7 @@
}
f1(x)^f2(x)
}
-<environment: 0x099a00c0>
+<environment: 0x09c7c418>
>
>
@@ -2221,12 +2218,15 @@
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVariable-class
> ### Title: Random variable
> ### Aliases: RandVariable-class Map Domain Range compatibleDomains
@@ -2250,7 +2250,7 @@
function (x)
{
}
-<bytecode: 0x08dfb580>
+<bytecode: 0x08f23408>
<environment: namespace:RandVar>
> Domain(R1)
@@ -2297,12 +2297,15 @@
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RandVariable
> ### Title: Generating function for RandVariable-class
> ### Aliases: RandVariable
@@ -2320,7 +2323,7 @@
function (x)
{
}
-<environment: 0x0993c4b4>
+<environment: 0x09dbb900>
> Domain(R1)
NULL
@@ -2376,12 +2379,15 @@
>
>
>
+> 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())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: RealRandVariable-class
> ### Title: Real random variable
> ### Aliases: RealRandVariable-class Range<-,RealRandVariable-method
@@ -2397,12 +2403,15 @@
>
>
>
+> 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")
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/robast -r 1159
More information about the Robast-commits
mailing list