[Robast-commits] r1254 - in pkg/RandVar: . inst man tests
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon May 8 07:32:56 CEST 2023
Author: stamats
Date: 2023-05-08 07:32:55 +0200 (Mon, 08 May 2023)
New Revision: 1254
Modified:
pkg/RandVar/DESCRIPTION
pkg/RandVar/inst/CITATION
pkg/RandVar/inst/NEWS
pkg/RandVar/man/0RandVar-package.Rd
pkg/RandVar/tests/tests.Rout.save
Log:
update of CITATION file, changed encoding to UTF-8
Modified: pkg/RandVar/DESCRIPTION
===================================================================
--- pkg/RandVar/DESCRIPTION 2023-05-07 12:59:30 UTC (rev 1253)
+++ pkg/RandVar/DESCRIPTION 2023-05-08 05:32:55 UTC (rev 1254)
@@ -1,6 +1,6 @@
Package: RandVar
-Version: 1.2.1
-Date: 2020-01-18
+Version: 1.2.2
+Date: 2023-05-08
Title: Implementation of Random Variables
Description: Implements random variables by means of S4 classes and methods.
Depends: R(>= 3.4), methods, distr(>= 2.8.0), distrEx(>= 2.8.0)
@@ -11,8 +11,8 @@
ByteCompile: yes
LazyLoad: yes
License: LGPL-3
-Encoding: latin1
-URL: http://robast.r-forge.r-project.org/
+Encoding: UTF-8
+URL: https://r-forge.r-project.org/projects/robast/
LastChangedDate: {$LastChangedDate$}
LastChangedRevision: {$LastChangedRevision$}
VCS/SVNRevision: 1228
Modified: pkg/RandVar/inst/CITATION
===================================================================
--- pkg/RandVar/inst/CITATION 2023-05-07 12:59:30 UTC (rev 1253)
+++ pkg/RandVar/inst/CITATION 2023-05-08 05:32:55 UTC (rev 1254)
@@ -1,20 +1,19 @@
-if(!exists("meta") || is.null(meta)) meta <- packageDescription("RandVar")
-year <- sub("-.*", "", meta$Date)
-note <- sprintf("R package version %s", meta$Version)
-
-citHeader("To cite package RandVar in publications use:")
-
-citEntry(entry="Manual",
- title = "RandVar: Implementation of random variables",
- author = personList(as.person("M. Kohl"),
- as.person("P. Ruckdeschel")),
- language = "English",
- year = year,
- note = note,
- type = "R package",
- url = "http://robast.r-forge.r-project.org/",
- textVersion = paste("Kohl, M., and Ruckdeschel, P.",
- sprintf("(%s).", year),
- "RandVar: Implementation of random variables.",
- paste(note, ".", sep = ""),
- "URL http://robast.r-forge.r-project.org/"))
+if(!exists("meta") || is.null(meta)) meta <- packageDescription("RandVar")
+year <- sub("-.*", "", meta$Date)
+note <- sprintf("R package version %s", meta$Version)
+
+bibentry(
+ mheader = "To cite package RandVar in publications use:",
+ bibtype = "Manual",
+ title = "RandVar: Implementation of random variables",
+ author = c(person("Matthias", "Kohl"), person("Peter", "Ruckdeschel")),
+ language = "English",
+ year = year,
+ note = note,
+ type = "R package",
+ textVersion = paste("Kohl, M., and Ruckdeschel, P.",
+ sprintf("(%s).", year),
+ "RandVar: Implementation of random variables.",
+ paste(note, ".", sep = ""),
+ "URL https://r-forge.r-project.org/projects/robast/")
+)
Modified: pkg/RandVar/inst/NEWS
===================================================================
--- pkg/RandVar/inst/NEWS 2023-05-07 12:59:30 UTC (rev 1253)
+++ pkg/RandVar/inst/NEWS 2023-05-08 05:32:55 UTC (rev 1254)
@@ -8,6 +8,14 @@
information)
#######################################
+version 1.3
+#######################################
+
+user-visible CHANGES:
++ CITATION file now uses bibentry.
+
+
+#######################################
version 1.2
#######################################
Modified: pkg/RandVar/man/0RandVar-package.Rd
===================================================================
--- pkg/RandVar/man/0RandVar-package.Rd 2023-05-07 12:59:30 UTC (rev 1253)
+++ pkg/RandVar/man/0RandVar-package.Rd 2023-05-08 05:32:55 UTC (rev 1254)
@@ -1,45 +1,45 @@
-\name{RandVar-package}
-\alias{RandVar-package}
-\alias{RandVar}
-\docType{package}
-\title{
-Implementation of Random Variables
-}
-\description{
-Implementation of random variables by means of S4 classes and methods.
-}
-\details{
-\tabular{ll}{
-Package: \tab RandVar \cr
-Version: \tab 1.2.1 \cr
-Date: \tab 2020-01-18 \cr
-Depends: \tab R(>= 3.4), methods, distr(>= 2.8.0), distrEx(>= 2.8.0) \cr
-Imports: \tab startupmsg \cr
-ByteCompile: \tab yes \cr
-License: \tab LGPL-3 \cr
-URL: \tab http://robast.r-forge.r-project.org/\cr
-VCS/SVNRevision: \tab 1228 \cr
-}
-}
-\author{
-Peter Ruckdeschel \email{peter.ruckdeschel at uni-oldenburg.de},\cr%
-Matthias Kohl \email{Matthias.Kohl at stamats.de}\cr
-Maintainer: Matthias Kohl \email{matthias.kohl at stamats.de}}
-\references{
- M. Kohl (2005). Numerical Contributions to the Asymptotic Theory of Robustness.
- Dissertation. University of Bayreuth.
-}
-\seealso{
-\code{\link[distr:0distr-package]{distr-package}}, \code{\link[distrEx:0distrEx-package]{distrEx-package}}
-}
-\section{Package versions}{
-Note: The first two numbers of package versions do not necessarily reflect
- package-individual development, but rather are chosen for the
- RobAStXXX family as a whole in order to ease updating "depends"
- information.
-}
-\examples{
-library(RandVar)
-#vignette("RandVar")
-}
-\keyword{package}
+\name{RandVar-package}
+\alias{RandVar-package}
+\alias{RandVar}
+\docType{package}
+\title{
+Implementation of Random Variables
+}
+\description{
+Implementation of random variables by means of S4 classes and methods.
+}
+\details{
+\tabular{ll}{
+Package: \tab RandVar \cr
+Version: \tab 1.2.2 \cr
+Date: \tab 2023-05-08 \cr
+Depends: \tab R(>= 3.4), methods, distr(>= 2.8.0), distrEx(>= 2.8.0) \cr
+Imports: \tab startupmsg \cr
+ByteCompile: \tab yes \cr
+License: \tab LGPL-3 \cr
+URL: \tab https://r-forge.r-project.org/projects/robast/\cr
+VCS/SVNRevision: \tab 1228 \cr
+}
+}
+\author{
+Peter Ruckdeschel \email{peter.ruckdeschel at uni-oldenburg.de},\cr%
+Matthias Kohl \email{Matthias.Kohl at stamats.de}\cr
+Maintainer: Matthias Kohl \email{matthias.kohl at stamats.de}}
+\references{
+ M. Kohl (2005). Numerical Contributions to the Asymptotic Theory of Robustness.
+ Dissertation. University of Bayreuth.
+}
+\seealso{
+\code{\link[distr:0distr-package]{distr-package}}, \code{\link[distrEx:0distrEx-package]{distrEx-package}}
+}
+\section{Package versions}{
+Note: The first two numbers of package versions do not necessarily reflect
+ package-individual development, but rather are chosen for the
+ RobAStXXX family as a whole in order to ease updating "depends"
+ information.
+}
+\examples{
+library(RandVar)
+#vignette("RandVar")
+}
+\keyword{package}
Modified: pkg/RandVar/tests/tests.Rout.save
===================================================================
--- pkg/RandVar/tests/tests.Rout.save 2023-05-07 12:59:30 UTC (rev 1253)
+++ pkg/RandVar/tests/tests.Rout.save 2023-05-08 05:32:55 UTC (rev 1254)
@@ -1,2193 +1,2195 @@
-
-R Under development (unstable) (2020-01-16 r77668) -- "Unsuffered Consequences"
-Copyright (C) 2020 The R Foundation for Statistical Computing
-Platform: i386-w64-mingw32/i386 (32-bit)
-
-R is free software and comes with ABSOLUTELY NO WARRANTY.
-You are welcome to redistribute it under certain conditions.
-Type 'license()' or 'licence()' for distribution details.
-
-R is a collaborative project with many contributors.
-Type 'contributors()' for more information and
-'citation()' on how to cite R or R packages in publications.
-
-Type 'demo()' for some demos, 'help()' for on-line help, or
-'help.start()' for an HTML browser interface to help.
-Type 'q()' to quit R.
-
-> library(RandVar)
-Loading required package: distr
-Loading required package: startupmsg
-:startupmsg> Utilities for Start-Up Messages (version 0.9.6)
-:startupmsg>
-:startupmsg> For more information see ?"startupmsg",
-:startupmsg> NEWS("startupmsg")
-
-Loading required package: sfsmisc
-:distr> Object Oriented Implementation of Distributions (version
-:distr> 2.8.0)
-:distr>
-:distr> Attention: Arithmetics on distribution objects are
-:distr> understood as operations on corresponding random variables
-:distr> (r.v.s); see distrARITH().
-:distr>
-:distr> Some functions from package 'stats' are intentionally masked
-:distr> ---see distrMASK().
-:distr>
-:distr> Note that global options are controlled by distroptions()
-:distr> ---c.f. ?"distroptions".
-:distr>
-:distr> For more information see ?"distr", NEWS("distr"), as well as
-:distr> http://distr.r-forge.r-project.org/
-:distr> Package "distrDoc" provides a vignette to this package as
-:distr> well as to several extension packages; try
-:distr> vignette("distr").
-
-
-Attaching package: 'distr'
-
-The following objects are masked from 'package:stats':
-
- df, qqplot, sd
-
-Loading required package: distrEx
-:distrEx> Extensions of Package 'distr' (version 2.8.0)
-:distrEx>
-:distrEx> Note: Packages "e1071", "moments", "fBasics" should be
-:distrEx> attached /before/ package "distrEx". See
-:distrEx> distrExMASK().Note: Extreme value distribution
-:distrEx> functionality has been moved to
-:distrEx>
-:distrEx> package "RobExtremes". See distrExMOVED().
-:distrEx>
-:distrEx> For more information see ?"distrEx", NEWS("distrEx"), as
-:distrEx> well as
-:distrEx> http://distr.r-forge.r-project.org/
-:distrEx> Package "distrDoc" provides a vignette to this package
-:distrEx> as well as to several related packages; try
-:distrEx> vignette("distr").
-
-
-Attaching package: 'distrEx'
-
-The following objects are masked from 'package:stats':
-
- IQR, mad, median, var
-
-:RandVar> Implementation of Random Variables (version 1.2.1)
-:RandVar>
-:RandVar> For more information see ?"RandVar", NEWS("RandVar"), as
-:RandVar> well as
-:RandVar> http://robast.r-forge.r-project.org/
-:RandVar> This package also includes a vignette; try
-:RandVar> vignette("RandVar").
-
-> set.seed(123)
->
-> ###############################################################################
-> ## start of tests
-> ###############################################################################
->
-> ## RandVariable
-> (R1 <- new("RandVariable"))
-An object of class "RandVariable"
-length of Map: 1
-Domain: NULL
-Range: NULL
-> (R1 <- RandVariable())
-An object of class "RandVariable"
-length of Map: 1
-Domain: NULL
-Range: NULL
-> ## IGNORE_RDIFF_BEGIN
-> Map(R1)
-[[1]]
-function(x){ }
-<environment: 0x07909ed8>
-
-> ## IGNORE_RDIFF_END
-> Domain(R1)
-NULL
-> Range(R1)
-NULL
-> Map(R1) <- list(function(x){ceiling(x)}, function(x){floor(x)})
-> Domain(R1) <- Reals()
-> Range(R1) <- Naturals()
-> R1
-An object of class "RandVariable"
-length of Map: 2
-Domain: Real Space with dimension 1
-Range: Grid of Naturals with dimension 1
-> Map(R1)
-[[1]]
-function (x)
-{
- ceiling(x)
-}
-
-[[2]]
-function (x)
-{
- floor(x)
-}
-
-> length(R1)
-[1] 2
->
-> R2 <- R1
-> Domain(R2) <- Naturals()
-> compatibleDomains(R1, R2)
-[1] TRUE
-> Domain(R2) <- NULL
-> compatibleDomains(R1, R2)
-[1] FALSE
-> Domain(R2) <- EuclideanSpace(dimension = 1)
-> compatibleDomains(R1, R2)
-[1] TRUE
-> Domain(R2) <- EuclideanSpace(dimension = 2)
-> compatibleDomains(R1, R2)
-[1] FALSE
->
->
-> ## list of functions
-> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4})
-> L2 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4},
-+ function(x){x^5}, function(x){x^6})
-> L3 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4},
-+ function(x){x^5}, function(x){x^6}, function(x){x^7}, function(x){x^8})
-> L4 <- list(function(x){exp(x)}, function(x){abs(x)},
-+ function(x){sin(x)}, function(x){floor(x)})
->
-> ## EuclRandVariable
-> (R3 <- new("EuclRandVariable", Map = L4, Domain = Reals(), Range = Reals()))
-An object of class "EuclRandVariable"
-length of Map: 4
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> (R3 <- EuclRandVariable(L1, Domain = Reals(), dimension = 1))
-An object of class "EuclRandVariable"
-length of Map: 4
-Domain: Real Space with dimension 1
-Range: Euclidean Space with dimension 1
-> Map(R3)
-[[1]]
-function (x)
-{
- x
-}
-
-[[2]]
-function (x)
-{
- x^2
-}
-
-[[3]]
-function (x)
-{
- x^3
-}
-
-[[4]]
-function (x)
-{
- x^4
-}
-
-> Range(R3) <- Reals()
-> R3[2]
-An object of class "EuclRandVariable"
-length of Map: 1
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> Map(R3[3])
-[[1]]
-function (x)
-{
- x^3
-}
-
-> Map(R3[c(1,2,4)])
-[[1]]
-function (x)
-{
- x
-}
-
-[[2]]
-function (x)
-{
- x^2
-}
-
-[[3]]
-function (x)
-{
- x^4
-}
-
-> Map(R3[2:4])
-[[1]]
-function (x)
-{
- x^2
-}
-
-[[2]]
-function (x)
-{
- x^3
-}
-
-[[3]]
-function (x)
-{
- x^4
-}
-
-> evalRandVar(R3, rnorm(1))
- [,1]
-[1,] -0.56047565
-[2,] 0.31413295
-[3,] -0.17606387
-[4,] 0.09867951
-> x <- as.matrix(rnorm(10))
-> res.R3 <- evalRandVar(R3, x)
-> res.R3[2,,] # results for Map(R3)[[2]](x)
- [1] 0.052981677 2.429571609 0.004971433 0.016715318 2.941447909 0.212443749
- [7] 1.600379927 0.471766840 0.198614592 1.498376247
-> res.R3[2,1,] # results for Map(R3)[[2]](x[1,])
-[1] 0.05298168
-> # assuming a probability space with
-> # distribution Exp()
-> res.R31 <- evalRandVar(R3, x, Gammad())
-> res.R31[2,,] # results for Map(R3)[[2]](x)
- [1] NA 2.429571609 0.004971433 0.016715318 2.941447909 0.212443749
- [7] NA NA NA 1.498376247
-> res.R31[2,1,] # results for Map(R3)[[2]](x[1,])
-[1] NA
-> dimension(R3)
-[1] 4
->
-> R4 <- EuclRandVariable(L4, Domain = Reals(), dimension = 1)
-> DL1 <- imageDistr(R4, Norm())
-> plot(DL1)
->
-> Domain(R4) <- EuclideanSpace(dimension = 2)
-> Range(R4) <- EuclideanSpace(dimension = 2)
-> (X <- matrix(c(x, rnorm(10)), ncol = 2))
- [,1] [,2]
- [1,] -0.23017749 0.3598138
- [2,] 1.55870831 0.4007715
- [3,] 0.07050839 0.1106827
- [4,] 0.12928774 -0.5558411
- [5,] 1.71506499 1.7869131
- [6,] 0.46091621 0.4978505
- [7,] -1.26506123 -1.9666172
- [8,] -0.68685285 0.7013559
- [9,] -0.44566197 -0.4727914
-[10,] 1.22408180 -1.0678237
-> res2.R4 <- evalRandVar(R4, X)
-> res2.R4[3,,1] # results for Map(R4)[[3]](X[,1])
- [1] -0.22815034 0.99992694 0.07044998 0.12892786 0.98961131 0.44476889
- [7] -0.95362595 -0.63410681 -0.43105529 0.94049422
-> dimension(R4)
-[1] 8
->
->
-> ## EuclRandMatrix
-> (R5 <- as(R4, "EuclRandMatrix"))
-An object of class "EuclRandMatrix"
-Dim of Map: 4 1
-Domain: Euclidean Space with dimension 2
-Range: Euclidean Space with dimension 2
-> dimension(R5)
-[1] 8
-> Domain(R5) <- Reals()
-> Range(R5) <- Reals()
-> (DL2 <- imageDistr(R5, Norm())) # list of distributions
-An object of class "DistrList"
- [[1]] Distribution Object of Class: AbscontDistribution
- [[2]] Distribution Object of Class: AbscontDistribution
- [[3]] Distribution Object of Class: AbscontDistribution
- [[4]] Distribution Object of Class: AbscontDistribution
-Warning messages:
-1: 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'
-2: In (new("standardGeneric", .Data = function (object) :
- slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions'
-> plot(DL2) # vgl. DL1
->
-> Domain(R5) <- EuclideanSpace(dimension = 2)
-> Range(R5) <- EuclideanSpace(dimension = 2)
-> #res1.R5 <- evalRandVar(R5, rnorm(2))
-> #res1.R5[1,1,] # result for map of R5[1,1]
->
-> res2.R5 <- evalRandVar(R5, X)
-> res2.R5[,,1,2]
-[1] 1.4330626 0.3598138 0.3521000 0.0000000
-> res2.R5[,1,2,1:2]
- [,1] [,2]
-[1,] 4.7526783 1.4929760
-[2,] 1.5587083 0.4007715
-[3,] 0.9999269 0.3901288
-[4,] 1.0000000 0.0000000
-> res2.R5[1,1,1:2,2]
-[1] 1.433063 1.492976
->
-> new("EuclRandMatrix", Map = L2, Dim = as.integer(c(3,2)), Domain = Reals(), Range = Reals())
-An object of class "EuclRandMatrix"
-Dim of Map: 3 2
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> (R6 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), Range = Reals()))
-An object of class "EuclRandMatrix"
-Dim of Map: 3 2
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> R6[1:2, 2]
-An object of class "EuclRandVariable"
-length of Map: 2
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> R6[1:2, 1:2]
-An object of class "EuclRandMatrix"
-Dim of Map: 2 2
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> Map(R6[1,2])
-[[1]]
-function (x)
-{
- x^4
-}
-
-> Map(t(R6)[2,1])
-[[1]]
-function (x)
-{
- f <- function (x)
- {
- x^4
- }
- t(f(x))
-}
-<environment: 0x0828c6d0>
-
-> dimension(R6)
-[1] 6
->
-> R7 <- EuclRandMatrix(Map = L4, ncol = 2, Domain = Reals(), dimension = 1)
-> dimension(R7)
-[1] 4
-> (DL3 <- imageDistr(R7, Norm()))
-An object of class "DistrList"
- [[1]] Distribution Object of Class: AbscontDistribution
- [[2]] Distribution Object of Class: AbscontDistribution
- [[3]] Distribution Object of Class: AbscontDistribution
- [[4]] Distribution Object of Class: AbscontDistribution
-Warning messages:
-1: 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'
-2: In (new("standardGeneric", .Data = function (object) :
- slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions'
-> plot(DL3) # vgl. DL1, DL2
->
->
-> ## EuclRandVarList
-> new("EuclRandVarList")
-An object of class "EuclRandVarList"
-Domain: NULL
-[[1]]
-length of Map: 1
-Range: Euclidean Space with dimension 1
-> (RL1 <- EuclRandVarList(R3, R6, R7))
-An object of class "EuclRandVarList"
-Domain: Real Space with dimension 1
-[[1]]
-length of Map: 4
-Range: Real Space with dimension 1
-[[2]]
-Dim of Map: 3 2
-Range: Real Space with dimension 1
-[[3]]
-Dim of Map: 2 2
-Range: Euclidean Space with dimension 1
-> dimension(RL1)
-[1] 14
-> as(R4, "EuclRandVarList")
-An object of class "EuclRandVarList"
-Domain: Euclidean Space with dimension 2
-[[1]]
-length of Map: 4
-Range: Euclidean Space with dimension 2
-> as(R6, "EuclRandVarList")
-An object of class "EuclRandVarList"
-Domain: Real Space with dimension 1
-[[1]]
-Dim of Map: 3 2
-Range: Real Space with dimension 1
-> Domain(R5) <- Reals()
-> Range(R5) <- Reals()
-> (RL2 <- EuclRandVarList(R5, R7))
-An object of class "EuclRandVarList"
-Domain: Real Space with dimension 1
-[[1]]
-Dim of Map: 4 1
-Range: Real Space with dimension 1
-[[2]]
-Dim of Map: 2 2
-Range: Euclidean Space with dimension 1
-> (DL4 <- imageDistr(RL2, Norm()))
-An object of class "DistrList"
- [[1]] Distribution Object of Class: AbscontDistribution
- [[2]] Distribution Object of Class: AbscontDistribution
- [[3]] Distribution Object of Class: AbscontDistribution
- [[4]] Distribution Object of Class: AbscontDistribution
- [[5]] Distribution Object of Class: AbscontDistribution
- [[6]] Distribution Object of Class: AbscontDistribution
- [[7]] Distribution Object of Class: AbscontDistribution
- [[8]] Distribution Object of Class: AbscontDistribution
-Warning messages:
-1: 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'
-2: In (new("standardGeneric", .Data = function (object) :
- slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions'
-> plot(DL4)
->
->
-> ## "Math" group
-> Map(log(abs(R4)))
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- exp(x)
- }
- abs(f1(x))
- }
- log(f1(x))
-}
-<environment: 0x0857bfd0>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- abs(x)
- }
- abs(f1(x))
- }
- log(f1(x))
-}
-<environment: 0x0857bfd0>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- sin(x)
- }
- abs(f1(x))
- }
- log(f1(x))
-}
-<environment: 0x0857bfd0>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- floor(x)
- }
- abs(f1(x))
- }
- log(f1(x))
-}
-<environment: 0x0857bfd0>
-
-> Map(gamma(R7))
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- exp(x)
- }
- gamma(f1(x))
-}
-<environment: 0x09e6ca68>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- abs(x)
- }
- gamma(f1(x))
-}
-<environment: 0x09e6ca68>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- sin(x)
- }
- gamma(f1(x))
-}
-<environment: 0x09e6ca68>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- floor(x)
- }
- gamma(f1(x))
-}
-<environment: 0x09e6ca68>
-
-> Map(exp(RL1)[[1]])
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- x
- }
- exp(f1(x))
-}
-<environment: 0x09a2d210>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- x^2
- }
- exp(f1(x))
-}
-<environment: 0x09a2d210>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- x^3
- }
- exp(f1(x))
-}
-<environment: 0x09a2d210>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- x^4
- }
- exp(f1(x))
-}
-<environment: 0x09a2d210>
-
->
->
-> ## "Arith" group
-> Map(3 + R3)
-[[1]]
-function (x)
-{
- f2 <- function (x)
- {
- x
- }
- 3 + f2(x)
-}
-<environment: 0x08568d28>
-
-[[2]]
-function (x)
-{
- f2 <- function (x)
- {
- x^2
- }
- 3 + f2(x)
-}
-<environment: 0x08568d28>
-
-[[3]]
-function (x)
-{
- f2 <- function (x)
- {
- x^3
- }
- 3 + f2(x)
-}
-<environment: 0x08568d28>
-
-[[4]]
-function (x)
-{
- f2 <- function (x)
- {
- x^4
- }
- 3 + f2(x)
-}
-<environment: 0x08568d28>
-
-> Map(c(1,3,5) * R3)
-[[1]]
-function (x)
-{
- f2 <- function (x)
- {
- x
- }
- 1 * f2(x)
-}
-<environment: 0x0902b478>
-
-[[2]]
-function (x)
-{
- f2 <- function (x)
- {
- x^2
- }
- 3 * f2(x)
-}
-<environment: 0x0902b478>
-
-[[3]]
-function (x)
-{
- f2 <- function (x)
- {
- x^3
- }
- 5 * f2(x)
-}
-<environment: 0x0902b478>
-
-[[4]]
-function (x)
-{
- f2 <- function (x)
- {
- x^4
- }
- 1 * f2(x)
-}
-<environment: 0x0902b478>
-
-Warning message:
-In c(1, 3, 5) * R3 :
- longer object length is not a multiple of shorter object length
-> try(1:5 * R3) # error
-Error in 1:5 * R3 :
- length of 'numeric' has to be less or equal dimension of 'EuclRandVariable'
-> Map(1:2 * R4)
-[[1]]
-function (x)
-{
- f2 <- function (x)
- {
- exp(x)
- }
- 1:2 * f2(x)
-}
-<environment: 0x09f12528>
-
-[[2]]
-function (x)
-{
- f2 <- function (x)
- {
- abs(x)
- }
- 1:2 * f2(x)
-}
-<environment: 0x09f12528>
-
-[[3]]
-function (x)
-{
- f2 <- function (x)
- {
- sin(x)
- }
- 1:2 * f2(x)
-}
-<environment: 0x09f12528>
-
-[[4]]
-function (x)
-{
- f2 <- function (x)
- {
- floor(x)
- }
- 1:2 * f2(x)
-}
-<environment: 0x09f12528>
-
-> Map(2/R6)
-[[1]]
-function (x)
-{
- f2 <- function (x)
- {
- x
- }
- 2/f2(x)
-}
-<environment: 0x09e67cc8>
-
-[[2]]
-function (x)
-{
- f2 <- function (x)
- {
- x^2
- }
- 2/f2(x)
-}
-<environment: 0x09e67cc8>
-
-[[3]]
-function (x)
-{
- f2 <- function (x)
- {
- x^3
- }
- 2/f2(x)
-}
-<environment: 0x09e67cc8>
-
-[[4]]
-function (x)
-{
- f2 <- function (x)
- {
- x^4
- }
- 2/f2(x)
-}
-<environment: 0x09e67cc8>
-
-[[5]]
-function (x)
-{
- f2 <- function (x)
- {
- x^5
- }
- 2/f2(x)
-}
-<environment: 0x09e67cc8>
-
-[[6]]
-function (x)
-{
- f2 <- function (x)
- {
- x^6
- }
- 2/f2(x)
-}
-<environment: 0x09e67cc8>
-
-> Map(c(1,3,5) %% R6)
-[[1]]
-function (x)
-{
- f2 <- function (x)
- {
- x
- }
- 1%%f2(x)
-}
-<environment: 0x09d873e0>
-
-[[2]]
-function (x)
-{
- f2 <- function (x)
- {
- x^2
- }
- 3%%f2(x)
-}
-<environment: 0x09d873e0>
-
-[[3]]
-function (x)
-{
- f2 <- function (x)
- {
- x^3
- }
- 5%%f2(x)
-}
-<environment: 0x09d873e0>
-
-[[4]]
-function (x)
-{
- f2 <- function (x)
- {
- x^4
- }
- 1%%f2(x)
-}
-<environment: 0x09d873e0>
-
-[[5]]
-function (x)
-{
- f2 <- function (x)
- {
- x^5
- }
- 3%%f2(x)
-}
-<environment: 0x09d873e0>
-
-[[6]]
-function (x)
-{
- f2 <- function (x)
- {
- x^6
- }
- 5%%f2(x)
-}
-<environment: 0x09d873e0>
-
-> Map(R4 - 5)
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- exp(x)
- }
- f1(x) - c(5, 5)
-}
-<environment: 0x09d234c8>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- abs(x)
- }
- f1(x) - c(5, 5)
-}
-<environment: 0x09d234c8>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- sin(x)
- }
- f1(x) - c(5, 5)
-}
-<environment: 0x09d234c8>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- floor(x)
- }
- f1(x) - c(5, 5)
-}
-<environment: 0x09d234c8>
-
-> Map(R6 %/% 2)
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- x
- }
- f1(x)%/%2
-}
-<environment: 0x09c35470>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- x^2
- }
- f1(x)%/%2
-}
-<environment: 0x09c35470>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- x^3
- }
- f1(x)%/%2
-}
-<environment: 0x09c35470>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- x^4
- }
- f1(x)%/%2
-}
-<environment: 0x09c35470>
-
-[[5]]
-function (x)
-{
- f1 <- function (x)
- {
- x^5
- }
- f1(x)%/%2
-}
-<environment: 0x09c35470>
-
-[[6]]
-function (x)
-{
- f1 <- function (x)
- {
- x^6
- }
- f1(x)%/%2
-}
-<environment: 0x09c35470>
-
-> Map(R3 ^ R3)
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- x
- }
- f2 <- function (x)
- {
- x
- }
- f1(x)^f2(x)
-}
-<environment: 0x09bd05d8>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- x^2
- }
- f2 <- function (x)
- {
- x^2
- }
- f1(x)^f2(x)
-}
-<environment: 0x09bd05d8>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- x^3
- }
- f2 <- function (x)
- {
- x^3
- }
- f1(x)^f2(x)
-}
-<environment: 0x09bd05d8>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- x^4
- }
- f2 <- function (x)
- {
- x^4
- }
- f1(x)^f2(x)
-}
-<environment: 0x09bd05d8>
-
-> Map(R7 * R7)
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- exp(x)
- }
- f2 <- function (x)
- {
- exp(x)
- }
- f1(x) * f2(x)
-}
-<environment: 0x09a7cb98>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- abs(x)
- }
- f2 <- function (x)
- {
- abs(x)
- }
- f1(x) * f2(x)
-}
-<environment: 0x09a7cb98>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- sin(x)
- }
- f2 <- function (x)
- {
- sin(x)
- }
- f1(x) * f2(x)
-}
-<environment: 0x09a7cb98>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- floor(x)
- }
- f2 <- function (x)
- {
- floor(x)
- }
- f1(x) * f2(x)
-}
-<environment: 0x09a7cb98>
-
-> Map((1 + RL1)[[1]])
-[[1]]
-function (x)
-{
- f2 <- function (x)
- {
- x
- }
- 1 + f2(x)
-}
-<environment: 0x099e1ec8>
-
-[[2]]
-function (x)
-{
- f2 <- function (x)
- {
- x^2
- }
- 1 + f2(x)
-}
-<environment: 0x099e1ec8>
-
-[[3]]
-function (x)
-{
- f2 <- function (x)
- {
- x^3
- }
- 1 + f2(x)
-}
-<environment: 0x099e1ec8>
-
-[[4]]
-function (x)
-{
- f2 <- function (x)
- {
- x^4
- }
- 1 + f2(x)
-}
-<environment: 0x099e1ec8>
-
-> Map((RL1 * 2)[[2]])
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- x
- }
- f1(x) * 2
-}
-<environment: 0x08bfbd30>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- x^2
- }
- f1(x) * 2
-}
-<environment: 0x08bfbd30>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- x^3
- }
- f1(x) * 2
-}
-<environment: 0x08bfbd30>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- x^4
- }
- f1(x) * 2
-}
-<environment: 0x08bfbd30>
-
-[[5]]
-function (x)
-{
- f1 <- function (x)
- {
- x^5
- }
- f1(x) * 2
-}
-<environment: 0x08bfbd30>
-
-[[6]]
-function (x)
-{
- f1 <- function (x)
- {
- x^6
- }
- f1(x) * 2
-}
-<environment: 0x08bfbd30>
-
-> Map((RL1 %% RL1)[[3]])
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- exp(x)
- }
- f2 <- function (x)
- {
- exp(x)
- }
- f1(x)%%f2(x)
-}
-<environment: 0x088fb130>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- abs(x)
- }
- f2 <- function (x)
- {
- abs(x)
- }
- f1(x)%%f2(x)
-}
-<environment: 0x088fb130>
-
-[[3]]
-function (x)
-{
- f1 <- function (x)
- {
- sin(x)
- }
- f2 <- function (x)
- {
- sin(x)
- }
- f1(x)%%f2(x)
-}
-<environment: 0x088fb130>
-
-[[4]]
-function (x)
-{
- f1 <- function (x)
- {
- floor(x)
- }
- f2 <- function (x)
- {
- floor(x)
- }
- f1(x)%%f2(x)
-}
-<environment: 0x088fb130>
-
->
->
-> ## "%*%"
-> M1 <- matrix(1:16, ncol = 8)
-> (R8 <- M1 %*% R4)
-An object of class "EuclRandMatrix"
-Dim of Map: 2 1
-Domain: Euclidean Space with dimension 2
-Range: Real Space with dimension 1
-> Map(R4)
-[[1]]
-function (x)
-{
- exp(x)
-}
-<bytecode: 0x05645f88>
-
-[[2]]
-function (x)
-{
- abs(x)
-}
-<bytecode: 0x0460f4d8>
-
-[[3]]
-function (x)
-{
- sin(x)
-}
-<bytecode: 0x046ebe40>
-
-[[4]]
-function (x)
-{
- floor(x)
-}
-<bytecode: 0x06addda0>
-
-> M1[1,]
-[1] 1 3 5 7 9 11 13 15
-> Map(R8)[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- exp(x)
- }
- c(1L, 3L) %*% f1(x)
- }
- f2 <- function (x)
- {
- abs(x)
- }
- f1(x) + c(5L, 7L) %*% f2(x)
- }
- f2 <- function (x)
- {
- sin(x)
- }
- f1(x) + c(9L, 11L) %*% f2(x)
- }
- f2 <- function (x)
- {
- floor(x)
- }
- f1(x) + c(13L, 15L) %*% f2(x)
-}
-<environment: 0x088e79d0>
-> M1[2,]
-[1] 2 4 6 8 10 12 14 16
-> Map(R8)[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- exp(x)
- }
- c(2L, 4L) %*% f1(x)
- }
- f2 <- function (x)
- {
- abs(x)
- }
- f1(x) + c(6L, 8L) %*% f2(x)
- }
- f2 <- function (x)
- {
- sin(x)
- }
- f1(x) + c(10L, 12L) %*% f2(x)
- }
- f2 <- function (x)
- {
- floor(x)
- }
- f1(x) + c(14L, 16L) %*% f2(x)
-}
-<environment: 0x088e79d0>
-> M2 <- matrix(1:2, ncol = 2)
-> (R9 <- M2 %*% R7)
-An object of class "EuclRandMatrix"
-Dim of Map: 1 2
-Domain: Real Space with dimension 1
-Range: Real Space with dimension 1
-> Map(R7)
-[[1]]
-function (x)
-{
- exp(x)
-}
-<bytecode: 0x05645f88>
-
-[[2]]
-function (x)
-{
- abs(x)
-}
-<bytecode: 0x0460f4d8>
-
-[[3]]
-function (x)
-{
- sin(x)
-}
-<bytecode: 0x046ebe40>
-
-[[4]]
-function (x)
-{
- floor(x)
-}
-<bytecode: 0x06addda0>
-
-> Map(R9)
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- exp(x)
- }
- 1L %*% f1(x)
- }
- f2 <- function (x)
- {
- abs(x)
- }
- f1(x) + 2L %*% f2(x)
-}
-<environment: 0x086d63c0>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- sin(x)
- }
- 1L %*% f1(x)
- }
- f2 <- function (x)
- {
- floor(x)
- }
- f1(x) + 2L %*% f2(x)
-}
-<environment: 0x08692b60>
-
-> Map(1:4 %*% R3) # inner product
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- x
- }
- 1L %*% f1(x)
- }
- f2 <- function (x)
- {
- x^2
- }
- f1(x) + 2L %*% f2(x)
- }
- f2 <- function (x)
- {
- x^3
- }
- f1(x) + 3L %*% f2(x)
- }
- f2 <- function (x)
- {
- x^4
- }
- f1(x) + 4L %*% f2(x)
-}
-<environment: 0x0858f2a0>
-
-> Map(1:2 %*% R7) # corresponds to Map(t(1:2) %*% R7)
-[[1]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- exp(x)
- }
- 1L %*% f1(x)
- }
- f2 <- function (x)
- {
- abs(x)
- }
- f1(x) + 2L %*% f2(x)
-}
-<environment: 0x09ecda70>
-
-[[2]]
-function (x)
-{
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- sin(x)
- }
- 1L %*% f1(x)
- }
- f2 <- function (x)
- {
- floor(x)
- }
- f1(x) + 2L %*% f2(x)
-}
-<environment: 0x08650e30>
-
-> Map(R4 %*% 1:8) # inner product
-[[1]]
-function (x)
-{
- f <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f1 <- function (x)
- {
- f <- function (x)
- {
- f <- function (x)
- {
- exp(x)
- }
- t(f(x))
- }
- t(f(x))
- }
- 1:2 %*% f1(x)
- }
- f2 <- function (x)
- {
- f <- function (x)
- {
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/robast -r 1254
More information about the Robast-commits
mailing list