From noreply at r-forge.r-project.org Sat Apr 23 18:47:38 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sat, 23 Apr 2016 18:47:38 +0200 (CEST) Subject: [Robast-commits] r867 - in pkg/RandVar: . R man tests tests/Examples Message-ID: <20160423164738.1E60218754D@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-23 18:47:37 +0200 (Sat, 23 Apr 2016) New Revision: 867 Modified: pkg/RandVar/DESCRIPTION pkg/RandVar/NAMESPACE pkg/RandVar/R/util.R pkg/RandVar/man/0RandVar-package.Rd pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save pkg/RandVar/tests/tests.Rout.save Log: prepared RandVar for upload on CRAN Modified: pkg/RandVar/DESCRIPTION =================================================================== --- pkg/RandVar/DESCRIPTION 2015-11-16 08:34:32 UTC (rev 866) +++ pkg/RandVar/DESCRIPTION 2016-04-23 16:47:37 UTC (rev 867) @@ -1,9 +1,10 @@ Package: RandVar -Version: 0.9.3 -Date: 2013-09-12 -Title: Implementation of random variables -Description: Implementation of random variables by means of S4 classes and methods +Version: 0.9.4 +Date: 2016-04-23 +Title: Implementation of Random Variables +Description: Implements random variables by means of S4 classes and methods. Depends: R (>= 2.14.0), methods, distr(>= 2.5.2), distrEx(>= 2.5) +Imports: startupmsg Author: Matthias Kohl, Peter Ruckdeschel Maintainer: Matthias Kohl ByteCompile: yes @@ -13,4 +14,4 @@ URL: http://robast.r-forge.r-project.org/ LastChangedDate: {$LastChangedDate$} LastChangedRevision: {$LastChangedRevision$} -SVNRevision: 696 +SVNRevision: 866 Modified: pkg/RandVar/NAMESPACE =================================================================== --- pkg/RandVar/NAMESPACE 2015-11-16 08:34:32 UTC (rev 866) +++ pkg/RandVar/NAMESPACE 2016-04-23 16:47:37 UTC (rev 867) @@ -1,6 +1,7 @@ import("methods") import("distr") import("distrEx") +importFrom("startupmsg", "buildStartupMessage") exportClasses("OptionalrSpace") exportClasses("RandVariable", Modified: pkg/RandVar/R/util.R =================================================================== --- pkg/RandVar/R/util.R 2015-11-16 08:34:32 UTC (rev 866) +++ pkg/RandVar/R/util.R 2016-04-23 16:47:37 UTC (rev 867) @@ -25,4 +25,4 @@ }else return(UnivarLebDecDistribution(r = rl, y = y)) } -} \ No newline at end of file +} Modified: pkg/RandVar/man/0RandVar-package.Rd =================================================================== --- pkg/RandVar/man/0RandVar-package.Rd 2015-11-16 08:34:32 UTC (rev 866) +++ pkg/RandVar/man/0RandVar-package.Rd 2016-04-23 16:47:37 UTC (rev 867) @@ -11,14 +11,14 @@ \details{ \tabular{ll}{ Package: \tab RandVar \cr -Version: \tab 0.9.1 \cr -Date: \tab 2013-09-12 \cr +Version: \tab 0.9.4 \cr +Date: \tab 2016-04-23 \cr Depends: \tab R (>= 2.12.0), methods, startupmsg, distr(>= 2.0), distrEx(>= 2.0)\cr LazyLoad: \tab yes \cr License: \tab LGPL-3 \cr URL: \tab http://robast.r-forge.r-project.org/\cr -SVNRevision: \tab 696 \cr +SVNRevision: \tab 866 \cr } } \author{ Modified: pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save =================================================================== --- pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2015-11-16 08:34:32 UTC (rev 866) +++ pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2016-04-23 16:47:37 UTC (rev 867) @@ -1,2448 +1,2455 @@ - -R version 2.12.1 Patched (2011-01-04 r53913) -Copyright (C) 2011 The R Foundation for Statistical Computing -ISBN 3-900051-07-0 -Platform: x86_64-unknown-linux-gnu (64-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. - - Natural language support but running in an English locale - -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. - -> pkgname <- "RandVar" -> source(file.path(R.home("share"), "R", "examples-header.R")) -> options(warn = 1) -> library('RandVar') -Loading required package: startupmsg -:startupmsg> Utilities for start-up messages (version 0.7.1) -:startupmsg> -:startupmsg> For more information see ?"startupmsg", -:startupmsg> NEWS("startupmsg") - -Loading required package: distr -Loading required package: sfsmisc -Loading required package: SweaveListingUtils -:SweaveListingUtils> Utilities for Sweave together with -:SweaveListingUtils> TeX listings package (version 0.5) -: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 object(s) are masked from 'package:base': - - library, require - -:distr> Object oriented implementation of distributions (version -:distr> 2.3) -: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 object(s) are masked from 'package:stats': - - df, qqplot, sd - -Loading required package: distrEx -Loading required package: evd -Loading required package: actuar - -Attaching package: 'actuar' - -The following object(s) are masked from 'package:grDevices': - - cm - -:distrEx> Extensions of package distr (version 2.3) -:distrEx> -:distrEx> Note: Packages "e1071", "moments", "fBasics" should be -:distrEx> attached /before/ package "distrEx". See distrExMASK(). -: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 object(s) are masked from 'package:stats': - - IQR, mad, median, var - -:RandVar> Implementation of random variables (version 0.8) -: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"). - -> -> assign(".oldSearch", search(), pos = 'CheckExEnv') -> cleanEx() -> nameEx("0RandVar-package") -> ### * 0RandVar-package -> -> flush(stderr()); flush(stdout()) -> -> ### Name: RandVar-package -> ### Title: Implementation of random variables -> ### Aliases: RandVar-package RandVar -> ### Keywords: package -> -> ### ** Examples -> -> library(RandVar) -> #vignette("RandVar") -> -> -> -> cleanEx() -> nameEx("EuclRandMatrix-class") -> ### * EuclRandMatrix-class -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandMatrix-class -> ### Title: Euclidean random matrix -> ### Aliases: EuclRandMatrix-class -> ### coerce,EuclRandMatrix,EuclRandVarList-method Dim -> ### Dim,EuclRandMatrix-method Dim<- Dim<-,EuclRandMatrix-method -> ### [,EuclRandMatrix-method ncol,EuclRandMatrix-method -> ### nrow,EuclRandMatrix-method dimension,EuclRandMatrix-method -> ### evalRandVar,EuclRandMatrix,numeric,missing-method -> ### evalRandVar,EuclRandMatrix,matrix,missing-method -> ### evalRandVar,EuclRandMatrix,numeric,Distribution-method -> ### evalRandVar,EuclRandMatrix,matrix,Distribution-method -> ### t,EuclRandMatrix-method show,EuclRandMatrix-method -> ### %*%,matrix,EuclRandMatrix-method %*%,numeric,EuclRandMatrix-method -> ### %*%,EuclRandMatrix,matrix-method %*%,EuclRandMatrix,numeric-method -> ### %*%,EuclRandMatrix,EuclRandMatrix-method -> ### Arith,numeric,EuclRandMatrix-method -> ### Arith,EuclRandMatrix,numeric-method -> ### Arith,EuclRandMatrix,EuclRandMatrix-method Math,EuclRandMatrix-method -> ### E,UnivariateDistribution,EuclRandMatrix,missing-method -> ### E,AbscontDistribution,EuclRandMatrix,missing-method -> ### E,DiscreteDistribution,EuclRandMatrix,missing-method -> ### E,MultivariateDistribution,EuclRandMatrix,missing-method -> ### E,DiscreteMVDistribution,EuclRandMatrix,missing-method -> ### E,UnivariateCondDistribution,EuclRandMatrix,numeric-method -> ### E,AbscontCondDistribution,EuclRandMatrix,numeric-method -> ### E,DiscreteCondDistribution,EuclRandMatrix,numeric-method -> ### Keywords: classes arith math -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandMatrix", Map = L1, Dim = as.integer(c(3,2)), -+ Domain = Reals(), Range = Reals()) -> dimension(R1) -[1] 6 -> R1[1:2, 2] -An object of class ?EuclRandVariable? -length of Map: 2 -Domain: Real Space with dimension 1 -Range: Real Space with dimension 1 -> R1[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(R1[1,2]) -[[1]] -function (x) -{ - x^4 -} - -> Map(t(R1)[2,1]) -[[1]] -function (x) -{ - f <- function (x) - { - x^4 - } - t(f(x)) -} - - -> -> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> dimension(R2) -[1] 4 -> (DL <- imageDistr(R2, 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 in 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) : - slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions' -> plot(DL) -> -> Map(gamma(R2)) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - gamma(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - gamma(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - gamma(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - gamma(f1(x)) -} - - -> -> ## "Arith" group -> Map(2/R1) -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 2/f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 2/f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 2/f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 2/f2(x) -} - - -[[5]] -function (x) -{ - f2 <- function (x) - { - x^5 - } - 2/f2(x) -} - - -[[6]] -function (x) -{ - f2 <- function (x) - { - x^6 - } - 2/f2(x) -} - - -> Map(R2 * R2) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x) * f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x) * f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x) * f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x) * f2(x) -} - - -> -> -> -> cleanEx() -> nameEx("EuclRandMatrix") -> ### * EuclRandMatrix -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandMatrix -> ### Title: Generating function for EuclRandMatrix-class -> ### Aliases: EuclRandMatrix -> ### Keywords: classes -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- EuclRandMatrix(Map = L1, nrow = 3, Domain = Reals(), dimension = 1) -> R1[1:2, 2] -An object of class ?EuclRandVariable? -length of Map: 2 -Domain: Real Space with dimension 1 -Range: Euclidean Space with dimension 1 -> R1[1:2, 1:2] -An object of class ?EuclRandMatrix? -Dim of Map: 2 2 -Domain: Real Space with dimension 1 -Range: Euclidean Space with dimension 1 -> Map(R1[1,2]) -[[1]] -function (x) -{ - x^4 -} - -> Map(t(R1)[2,1]) -[[1]] -function (x) -{ - f <- function (x) - { - x^4 - } - t(f(x)) -} - - -> -> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> (DL <- imageDistr(R2, 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 in 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) : - slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions' -> plot(DL) -> -> Map(gamma(R2)) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - gamma(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - gamma(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - gamma(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - gamma(f1(x)) -} - - -> -> ## "Arith" group -> Map(2/R1) -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 2/f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 2/f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 2/f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 2/f2(x) -} - - -[[5]] -function (x) -{ - f2 <- function (x) - { - x^5 - } - 2/f2(x) -} - - -[[6]] -function (x) -{ - f2 <- function (x) - { - x^6 - } - 2/f2(x) -} - - -> Map(R2 * R2) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x) * f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x) * f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x) * f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x) * f2(x) -} - - -> -> -> ## The function is currently defined as -> function(Map = list(function(x){1}), nrow = 1, ncol = 1, -+ Domain = NULL, dimension = 1) { -+ if (missing(nrow)) -+ nrow <- ceiling(length(Map)/ncol) -+ else if (missing(ncol)) -+ ncol <- ceiling(length(Map)/nrow) -+ -+ if(missing(Range)) -+ return(new("EuclRandMatrix", Map = Map, Domain = Domain, -+ Range = EuclideanSpace(dimension = dimension), -+ Dim = as.integer(c(nrow, ncol)))) -+ else -+ return(new("EuclRandMatrix", Map = Map, Domain = Domain, -+ Range = Range, Dim = as.integer(c(nrow, ncol)))) -+ } -function (Map = list(function(x) { - 1 -}), nrow = 1, ncol = 1, Domain = NULL, dimension = 1) -{ - if (missing(nrow)) - nrow <- ceiling(length(Map)/ncol) - else if (missing(ncol)) - ncol <- ceiling(length(Map)/nrow) - if (missing(Range)) - return(new("EuclRandMatrix", Map = Map, Domain = Domain, - Range = EuclideanSpace(dimension = dimension), Dim = as.integer(c(nrow, - ncol)))) - else return(new("EuclRandMatrix", Map = Map, Domain = Domain, - Range = Range, Dim = as.integer(c(nrow, ncol)))) -} -> -> -> -> cleanEx() -> nameEx("EuclRandVarList-class") -> ### * EuclRandVarList-class -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandVarList-class -> ### Title: List of Euclidean random variables -> ### Aliases: EuclRandVarList-class numberOfMaps -> ### numberOfMaps,EuclRandVarList-method dimension,EuclRandVarList-method -> ### evalRandVar,EuclRandVarList,numeric,missing-method -> ### evalRandVar,EuclRandVarList,matrix,missing-method -> ### evalRandVar,EuclRandVarList,numeric,Distribution-method -> ### evalRandVar,EuclRandVarList,matrix,Distribution-method -> ### imageDistr,EuclRandVarList,Distribution-method -> ### t,EuclRandVarList-method show,EuclRandVarList-method -> ### Arith,numeric,EuclRandVarList-method -> ### Arith,EuclRandVarList,numeric-method -> ### Arith,EuclRandVarList,EuclRandVarList-method -> ### Math,EuclRandVarList-method %m% -> ### %m%,EuclRandVarList,EuclRandVarList-method -> ### %*%,matrix,EuclRandVarList-method %*%,EuclRandVarList,matrix-method -> ### E,UnivariateDistribution,EuclRandVarList,missing-method -> ### E,AbscontDistribution,EuclRandVarList,missing-method -> ### E,DiscreteDistribution,EuclRandVarList,missing-method -> ### E,MultivariateDistribution,EuclRandVarList,missing-method -> ### E,DiscreteMVDistribution,EuclRandVarList,missing-method -> ### E,UnivariateCondDistribution,EuclRandVarList,numeric-method -> ### E,AbscontCondDistribution,EuclRandVarList,numeric-method -> ### E,DiscreteCondDistribution,EuclRandVarList,numeric-method -> ### Keywords: classes -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandVariable", Map = L2, Domain = Reals(), Range = Reals()) -> R2 <- EuclRandMatrix(Map = L1, ncol = 2, Domain = Reals(), dimension = 1) -> R3 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> -> (RL1 <- new("EuclRandVarList", list(R1, R2, R3))) -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: Euclidean Space with dimension 1 -[[3]] -Dim of Map: 2 2 -Range: Euclidean Space with dimension 1 -> dimension(RL1) -[1] 14 -> as(R1, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -length of Map: 4 -Range: Real Space with dimension 1 -> as(R2, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -Dim of Map: 3 2 -Range: Euclidean Space with dimension 1 -> -> Map(exp(RL1)[[1]]) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - exp(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - exp(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - exp(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - exp(f1(x)) -} - - -> -> ## "Arith" group -> Map((1 + RL1)[[1]]) -[[1]] -function (x) -{ - f2 <- function (x) - { - exp(x) - } - 1 + f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - abs(x) - } - 1 + f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - sin(x) - } - 1 + f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - floor(x) - } - 1 + f2(x) -} - - -> Map((RL1 * 2)[[2]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - x - } - f1(x) * 2 -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - x^2 - } - f1(x) * 2 -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - x^3 - } - f1(x) * 2 -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - x^4 - } - f1(x) * 2 -} - - -[[5]] -function (x) -{ - f1 <- function (x) - { - x^5 - } - f1(x) * 2 -} - - -[[6]] -function (x) -{ - f1 <- function (x) - { - x^6 - } - f1(x) * 2 -} - - -> Map((RL1 / RL1)[[3]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x)/f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x)/f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x)/f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x)/f2(x) -} - - -> -> -> -> cleanEx() -> nameEx("EuclRandVarList") -> ### * EuclRandVarList -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandVarList -> ### Title: Generating function for EuclRandVarList-class -> ### Aliases: EuclRandVarList -> ### Keywords: classes -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandVariable", Map = L2, Domain = Reals(), Range = Reals()) -> R2 <- EuclRandMatrix(Map = L1, ncol = 2, Domain = Reals(), dimension = 1) -> R3 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> -> (RL1 <- EuclRandVarList(R1, R2, R3)) -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: Euclidean Space with dimension 1 -[[3]] -Dim of Map: 2 2 -Range: Euclidean Space with dimension 1 -> is(R1, "EuclRandVarList") -[1] FALSE -> as(R1, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -length of Map: 4 -Range: Real Space with dimension 1 -> is(R2, "EuclRandVarList") -[1] FALSE -> as(R2, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -Dim of Map: 3 2 -Range: Euclidean Space with dimension 1 -> -> Map(exp(RL1)[[1]]) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - exp(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - exp(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - exp(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - exp(f1(x)) -} - - -> -> ## "Arith" group -> Map((1 + RL1)[[1]]) -[[1]] -function (x) -{ - f2 <- function (x) - { - exp(x) - } - 1 + f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - abs(x) - } - 1 + f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - sin(x) - } - 1 + f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - floor(x) - } - 1 + f2(x) -} - - -> Map((RL1 * 2)[[2]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - x - } - f1(x) * 2 -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - x^2 - } - f1(x) * 2 -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - x^3 - } - f1(x) * 2 -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - x^4 - } - f1(x) * 2 -} - - -[[5]] -function (x) -{ - f1 <- function (x) - { - x^5 - } - f1(x) * 2 -} - - -[[6]] -function (x) -{ - f1 <- function (x) - { - x^6 - } - f1(x) * 2 -} - - -> Map((RL1 / RL1)[[3]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x)/f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x)/f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x)/f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x)/f2(x) -} - - -> -> ## The function is currently defined as -> function(...){ -+ new("EuclRandVarList", list(...)) -+ } -function (...) -{ - new("EuclRandVarList", list(...)) -} -> -> -> -> cleanEx() -> nameEx("EuclRandVariable-class") -> ### * EuclRandVariable-class -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandVariable-class -> ### Title: Euclidean random variable -> ### Aliases: EuclRandVariable-class -> ### coerce,EuclRandVariable,EuclRandMatrix-method -> ### coerce,EuclRandVariable,EuclRandVarList-method -> ### Range<-,EuclRandVariable-method [,EuclRandVariable-method evalRandVar -> ### evalRandVar,EuclRandVariable,numeric,missing-method -> ### evalRandVar,EuclRandVariable,matrix,missing-method -> ### evalRandVar,EuclRandVariable,numeric,Distribution-method -> ### evalRandVar,EuclRandVariable,matrix,Distribution-method imageDistr -> ### imageDistr,EuclRandVariable,Distribution-method -> ### dimension,EuclRandVariable-method t,EuclRandVariable-method -> ### %*%,matrix,EuclRandVariable-method -> ### %*%,numeric,EuclRandVariable-method -> ### %*%,EuclRandVariable,matrix-method -> ### %*%,EuclRandVariable,numeric-method -> ### %*%,EuclRandVariable,EuclRandVariable-method -> ### %*%,EuclRandVariable,EuclRandMatrix-method -> ### %*%,EuclRandMatrix,EuclRandVariable-method -> ### Arith,numeric,EuclRandVariable-method -> ### Arith,EuclRandVariable,numeric-method -> ### Arith,EuclRandVariable,EuclRandVariable-method -> ### Math,EuclRandVariable-method -> ### E,UnivariateDistribution,EuclRandVariable,missing-method -> ### E,AbscontDistribution,EuclRandVariable,missing-method -> ### E,DiscreteDistribution,EuclRandVariable,missing-method -> ### E,MultivariateDistribution,EuclRandVariable,missing-method -> ### E,DiscreteMVDistribution,EuclRandVariable,missing-method -> ### E,UnivariateCondDistribution,EuclRandVariable,numeric-method -> ### E,AbscontCondDistribution,EuclRandVariable,numeric-method -> ### E,DiscreteCondDistribution,EuclRandVariable,numeric-method -> ### Keywords: classes arith math -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandVariable", Map = L1, Domain = Reals(), Range = Reals()) -> dimension(R1) -[1] 4 -> Map(R1) -[[1]] -function (x) -{ - x -} - -[[2]] -function (x) -{ - x^2 -} - -[[3]] -function (x) -{ - x^3 -} - -[[4]] -function (x) -{ - x^4 -} - -> Range(R1) -An object of class "Reals" -Slot "dimension": -[1] 1 - -Slot "name": -[1] "Real Space" - -> R1[2] -An object of class ?EuclRandVariable? -length of Map: 1 -Domain: Real Space with dimension 1 -Range: Real Space with dimension 1 -> Map(R1[3]) -[[1]] -function (x) -{ - x^3 -} - -> Map(R1[c(1,2,4)]) -[[1]] -function (x) -{ - x -} - -[[2]] -function (x) -{ - x^2 -} - -[[3]] -function (x) -{ - x^4 -} - -> Map(R1[2:4]) -[[1]] -function (x) -{ - x^2 -} - -[[2]] -function (x) -{ - x^3 -} - -[[3]] -function (x) -{ - x^4 -} - -> evalRandVar(R1, rnorm(1)) - [,1] -[1,] -0.6264538 -[2,] 0.3924444 -[3,] -0.2458483 -[4,] 0.1540126 -> x <- as.matrix(rnorm(10)) -> res.R1 <- evalRandVar(R1, x) -> res.R1[2,,] # results for Map(R1)[[2]](x) - [1] 0.03372487 0.69827518 2.54492084 0.10857537 0.67316837 0.23758708 - [7] 0.54512337 0.33152416 0.09326207 2.28548230 -> res.R1[2,1,] # results for Map(R1)[[2]](x[1,]) -[1] 0.03372487 -> -> R2 <- EuclRandVariable(L2, Domain = Reals(), dimension = 1) -> dimension(R2) -[1] 4 -> DL1 <- imageDistr(R2, Norm()) -> plot(DL1) -> -> Domain(R2) <- EuclideanSpace(dimension = 2) -> Range(R2) <- EuclideanSpace(dimension = 2) -> dimension(R2) -[1] 8 -> (X <- matrix(c(x, rnorm(10)), ncol = 2)) - [,1] [,2] - [1,] 0.1836433 0.38984324 - [2,] -0.8356286 -0.62124058 - [3,] 1.5952808 -2.21469989 - [4,] 0.3295078 1.12493092 - [5,] -0.8204684 -0.04493361 - [6,] 0.4874291 -0.01619026 - [7,] 0.7383247 0.94383621 - [8,] 0.5757814 0.82122120 - [9,] -0.3053884 0.59390132 -[10,] 1.5117812 0.91897737 -> res.R2 <- evalRandVar(R2, X) -> res.R2[3,,1] # results for Map(R2)[[3]](X[,1]) - [1] 0.1826128 -0.7417183 0.9997003 0.3235773 -0.7314653 0.4683559 - [7] 0.6730498 0.5444903 -0.3006636 0.9982591 -> -> Map(log(abs(R2))) # "Math" group generic -[[1]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - exp(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - abs(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - sin(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - floor(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -> -> # "Arith" group generic -> Map(3 + R1) -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 3 + f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 3 + f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 3 + f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 3 + f2(x) -} - - -> Map(c(1,3,5) * R1) -Warning in c(1, 3, 5) * R1 : - longer object length is not a multiple of shorter object length -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 1 * f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 3 * f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 5 * f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 1 * f2(x) -} - - -> try(1:5 * R1) # error -Error in 1:5 * R1 : - length of 'numeric' has to be less or equal dimension of 'EuclRandVariable' -> Map(1:2 * R2) -[[1]] -function (x) -{ - f2 <- function (x) - { - exp(x) - } - 1:2 * f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - abs(x) - } - 1:2 * f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - sin(x) - } - 1:2 * f2(x) -} [TRUNCATED] To get the complete diff run: svnlook diff /svnroot/robast -r 867 From noreply at r-forge.r-project.org Sat Apr 23 22:24:28 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sat, 23 Apr 2016 22:24:28 +0200 (CEST) Subject: [Robast-commits] r868 - in branches/robast-1.0/pkg/RandVar: . R tests tests/Examples Message-ID: <20160423202428.814CB187F32@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-23 22:24:28 +0200 (Sat, 23 Apr 2016) New Revision: 868 Modified: branches/robast-1.0/pkg/RandVar/DESCRIPTION branches/robast-1.0/pkg/RandVar/NAMESPACE branches/robast-1.0/pkg/RandVar/R/util.R branches/robast-1.0/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save branches/robast-1.0/pkg/RandVar/tests/tests.Rout.save Log: RandVar 1.0 is ready Modified: branches/robast-1.0/pkg/RandVar/DESCRIPTION =================================================================== --- branches/robast-1.0/pkg/RandVar/DESCRIPTION 2016-04-23 16:47:37 UTC (rev 867) +++ branches/robast-1.0/pkg/RandVar/DESCRIPTION 2016-04-23 20:24:28 UTC (rev 868) @@ -1,16 +1,17 @@ Package: RandVar Version: 1.0 -Date: 2015-05-03 +Date: 2016-04-23 Title: Implementation of Random Variables Description: Implements random variables by means of S4 classes and methods. Depends: R (>= 2.14.0), methods, distr(>= 2.5.2), distrEx(>= 2.5) Imports: startupmsg -Authors at R: c(person("Matthias", "Kohl", role=c("cre", "cph"), email="Matthias.Kohl at stamats.de"), - person("Peter", "Ruckdeschel", role=c("aut", "cph"))) +Author: Matthias Kohl, Peter Ruckdeschel +Maintainer: Matthias Kohl ByteCompile: yes +LazyLoad: yes License: LGPL-3 Encoding: latin1 URL: http://robast.r-forge.r-project.org/ LastChangedDate: {$LastChangedDate$} LastChangedRevision: {$LastChangedRevision$} -SVNRevision: -Inf +SVNRevision: 866 Modified: branches/robast-1.0/pkg/RandVar/NAMESPACE =================================================================== --- branches/robast-1.0/pkg/RandVar/NAMESPACE 2016-04-23 16:47:37 UTC (rev 867) +++ branches/robast-1.0/pkg/RandVar/NAMESPACE 2016-04-23 20:24:28 UTC (rev 868) @@ -1,7 +1,7 @@ import("methods") import("distr") import("distrEx") -importFrom("startupmsg", "buildStartupMessage", "infoShow") +importFrom("startupmsg", "buildStartupMessage") exportClasses("OptionalrSpace") exportClasses("RandVariable", Modified: branches/robast-1.0/pkg/RandVar/R/util.R =================================================================== --- branches/robast-1.0/pkg/RandVar/R/util.R 2016-04-23 16:47:37 UTC (rev 867) +++ branches/robast-1.0/pkg/RandVar/R/util.R 2016-04-23 20:24:28 UTC (rev 868) @@ -25,4 +25,4 @@ }else return(UnivarLebDecDistribution(r = rl, y = y)) } -} \ No newline at end of file +} Modified: branches/robast-1.0/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save =================================================================== --- branches/robast-1.0/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2016-04-23 16:47:37 UTC (rev 867) +++ branches/robast-1.0/pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2016-04-23 20:24:28 UTC (rev 868) @@ -1,2454 +1,2454 @@ - -R Under development (unstable) (2015-05-02 r68310) -- "Unsuffered Consequences" -Copyright (C) 2015 The R Foundation for Statistical Computing -Platform: x86_64-unknown-linux-gnu (64-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. - - Natural language support but running in an English locale - -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. - -> pkgname <- "RandVar" -> source(file.path(R.home("share"), "R", "examples-header.R")) -> options(warn = 1) -> library('RandVar') -Loading required package: distr -Loading required package: startupmsg -:startupmsg> Utilities for Start-Up Messages (version 0.9.1) -: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) -: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> -: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.6) -: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.0) -: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"). - -> -> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv') -> cleanEx() -> nameEx("0RandVar-package") -> ### * 0RandVar-package -> -> flush(stderr()); flush(stdout()) -> -> ### Name: RandVar-package -> ### Title: Implementation of Random Variables -> ### Aliases: RandVar-package RandVar -> ### Keywords: package -> -> ### ** Examples -> -> library(RandVar) -> #vignette("RandVar") -> -> -> -> cleanEx() -> nameEx("EuclRandMatrix-class") -> ### * EuclRandMatrix-class -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandMatrix-class -> ### Title: Euclidean random matrix -> ### Aliases: EuclRandMatrix-class -> ### coerce,EuclRandMatrix,EuclRandVarList-method Dim -> ### Dim,EuclRandMatrix-method Dim<- Dim<-,EuclRandMatrix-method -> ### [,EuclRandMatrix-method ncol,EuclRandMatrix-method -> ### nrow,EuclRandMatrix-method dimension,EuclRandMatrix-method -> ### evalRandVar,EuclRandMatrix,numeric,missing-method -> ### evalRandVar,EuclRandMatrix,matrix,missing-method -> ### evalRandVar,EuclRandMatrix,numeric,Distribution-method -> ### evalRandVar,EuclRandMatrix,matrix,Distribution-method -> ### t,EuclRandMatrix-method show,EuclRandMatrix-method -> ### %*%,matrix,EuclRandMatrix-method %*%,numeric,EuclRandMatrix-method -> ### %*%,EuclRandMatrix,matrix-method %*%,EuclRandMatrix,numeric-method -> ### %*%,EuclRandMatrix,EuclRandMatrix-method -> ### Arith,numeric,EuclRandMatrix-method -> ### Arith,EuclRandMatrix,numeric-method -> ### Arith,EuclRandMatrix,EuclRandMatrix-method Math,EuclRandMatrix-method -> ### E,UnivariateDistribution,EuclRandMatrix,missing-method -> ### E,AbscontDistribution,EuclRandMatrix,missing-method -> ### E,DiscreteDistribution,EuclRandMatrix,missing-method -> ### E,MultivariateDistribution,EuclRandMatrix,missing-method -> ### E,DiscreteMVDistribution,EuclRandMatrix,missing-method -> ### E,UnivariateCondDistribution,EuclRandMatrix,numeric-method -> ### E,AbscontCondDistribution,EuclRandMatrix,numeric-method -> ### E,DiscreteCondDistribution,EuclRandMatrix,numeric-method -> ### Keywords: classes arith math -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandMatrix", Map = L1, Dim = as.integer(c(3,2)), -+ Domain = Reals(), Range = Reals()) -> dimension(R1) -[1] 6 -> R1[1:2, 2] -An object of class ?EuclRandVariable? -length of Map: 2 -Domain: Real Space with dimension 1 -Range: Real Space with dimension 1 -> R1[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(R1[1,2]) -[[1]] -function (x) -{ - x^4 -} - -> Map(t(R1)[2,1]) -[[1]] -function (x) -{ - f <- function (x) - { - x^4 - } - t(f(x)) -} - - -> -> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> dimension(R2) -[1] 4 -> (DL <- imageDistr(R2, 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 in 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) : - slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions' -> plot(DL) -> -> Map(gamma(R2)) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - gamma(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - gamma(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - gamma(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - gamma(f1(x)) -} - - -> -> ## "Arith" group -> Map(2/R1) -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 2/f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 2/f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 2/f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 2/f2(x) -} - - -[[5]] -function (x) -{ - f2 <- function (x) - { - x^5 - } - 2/f2(x) -} - - -[[6]] -function (x) -{ - f2 <- function (x) - { - x^6 - } - 2/f2(x) -} - - -> Map(R2 * R2) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x) * f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x) * f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x) * f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x) * f2(x) -} - - -> -> -> -> cleanEx() -> nameEx("EuclRandMatrix") -> ### * EuclRandMatrix -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandMatrix -> ### Title: Generating function for EuclRandMatrix-class -> ### Aliases: EuclRandMatrix -> ### Keywords: classes -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- EuclRandMatrix(Map = L1, nrow = 3, Domain = Reals(), dimension = 1) -> R1[1:2, 2] -An object of class ?EuclRandVariable? -length of Map: 2 -Domain: Real Space with dimension 1 -Range: Euclidean Space with dimension 1 -> R1[1:2, 1:2] -An object of class ?EuclRandMatrix? -Dim of Map: 2 2 -Domain: Real Space with dimension 1 -Range: Euclidean Space with dimension 1 -> Map(R1[1,2]) -[[1]] -function (x) -{ - x^4 -} - -> Map(t(R1)[2,1]) -[[1]] -function (x) -{ - f <- function (x) - { - x^4 - } - t(f(x)) -} - - -> -> R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> (DL <- imageDistr(R2, 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 in 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) : - slots d,p,q have been filled using simulations; for switching off this warning see '?distroptions' -> plot(DL) -> -> Map(gamma(R2)) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - gamma(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - gamma(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - gamma(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - gamma(f1(x)) -} - - -> -> ## "Arith" group -> Map(2/R1) -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 2/f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 2/f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 2/f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 2/f2(x) -} - - -[[5]] -function (x) -{ - f2 <- function (x) - { - x^5 - } - 2/f2(x) -} - - -[[6]] -function (x) -{ - f2 <- function (x) - { - x^6 - } - 2/f2(x) -} - - -> Map(R2 * R2) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x) * f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x) * f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x) * f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x) * f2(x) -} - - -> -> -> ## The function is currently defined as -> function(Map = list(function(x){1}), nrow = 1, ncol = 1, -+ Domain = NULL, dimension = 1) { -+ if (missing(nrow)) -+ nrow <- ceiling(length(Map)/ncol) -+ else if (missing(ncol)) -+ ncol <- ceiling(length(Map)/nrow) -+ -+ if(missing(Range)) -+ return(new("EuclRandMatrix", Map = Map, Domain = Domain, -+ Range = EuclideanSpace(dimension = dimension), -+ Dim = as.integer(c(nrow, ncol)))) -+ else -+ return(new("EuclRandMatrix", Map = Map, Domain = Domain, -+ Range = Range, Dim = as.integer(c(nrow, ncol)))) -+ } -function (Map = list(function(x) { - 1 -}), nrow = 1, ncol = 1, Domain = NULL, dimension = 1) -{ - if (missing(nrow)) - nrow <- ceiling(length(Map)/ncol) - else if (missing(ncol)) - ncol <- ceiling(length(Map)/nrow) - if (missing(Range)) - return(new("EuclRandMatrix", Map = Map, Domain = Domain, - Range = EuclideanSpace(dimension = dimension), Dim = as.integer(c(nrow, - ncol)))) - else return(new("EuclRandMatrix", Map = Map, Domain = Domain, - Range = Range, Dim = as.integer(c(nrow, ncol)))) -} -> -> -> -> cleanEx() -> nameEx("EuclRandVarList-class") -> ### * EuclRandVarList-class -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandVarList-class -> ### Title: List of Euclidean random variables -> ### Aliases: EuclRandVarList-class numberOfMaps -> ### numberOfMaps,EuclRandVarList-method dimension,EuclRandVarList-method -> ### evalRandVar,EuclRandVarList,numeric,missing-method -> ### evalRandVar,EuclRandVarList,matrix,missing-method -> ### evalRandVar,EuclRandVarList,numeric,Distribution-method -> ### evalRandVar,EuclRandVarList,matrix,Distribution-method -> ### imageDistr,EuclRandVarList,Distribution-method -> ### t,EuclRandVarList-method show,EuclRandVarList-method -> ### Arith,numeric,EuclRandVarList-method -> ### Arith,EuclRandVarList,numeric-method -> ### Arith,EuclRandVarList,EuclRandVarList-method -> ### Math,EuclRandVarList-method %m% -> ### %m%,EuclRandVarList,EuclRandVarList-method -> ### %*%,matrix,EuclRandVarList-method %*%,EuclRandVarList,matrix-method -> ### E,UnivariateDistribution,EuclRandVarList,missing-method -> ### E,AbscontDistribution,EuclRandVarList,missing-method -> ### E,DiscreteDistribution,EuclRandVarList,missing-method -> ### E,MultivariateDistribution,EuclRandVarList,missing-method -> ### E,DiscreteMVDistribution,EuclRandVarList,missing-method -> ### E,UnivariateCondDistribution,EuclRandVarList,numeric-method -> ### E,AbscontCondDistribution,EuclRandVarList,numeric-method -> ### E,DiscreteCondDistribution,EuclRandVarList,numeric-method -> ### Keywords: classes -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandVariable", Map = L2, Domain = Reals(), Range = Reals()) -> R2 <- EuclRandMatrix(Map = L1, ncol = 2, Domain = Reals(), dimension = 1) -> R3 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> -> (RL1 <- new("EuclRandVarList", list(R1, R2, R3))) -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: Euclidean Space with dimension 1 -[[3]] -Dim of Map: 2 2 -Range: Euclidean Space with dimension 1 -> dimension(RL1) -[1] 14 -> as(R1, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -length of Map: 4 -Range: Real Space with dimension 1 -> as(R2, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -Dim of Map: 3 2 -Range: Euclidean Space with dimension 1 -> -> Map(exp(RL1)[[1]]) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - exp(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - exp(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - exp(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - exp(f1(x)) -} - - -> -> ## "Arith" group -> Map((1 + RL1)[[1]]) -[[1]] -function (x) -{ - f2 <- function (x) - { - exp(x) - } - 1 + f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - abs(x) - } - 1 + f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - sin(x) - } - 1 + f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - floor(x) - } - 1 + f2(x) -} - - -> Map((RL1 * 2)[[2]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - x - } - f1(x) * 2 -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - x^2 - } - f1(x) * 2 -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - x^3 - } - f1(x) * 2 -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - x^4 - } - f1(x) * 2 -} - - -[[5]] -function (x) -{ - f1 <- function (x) - { - x^5 - } - f1(x) * 2 -} - - -[[6]] -function (x) -{ - f1 <- function (x) - { - x^6 - } - f1(x) * 2 -} - - -> Map((RL1 / RL1)[[3]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x)/f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x)/f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x)/f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x)/f2(x) -} - - -> -> -> -> cleanEx() -> nameEx("EuclRandVarList") -> ### * EuclRandVarList -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandVarList -> ### Title: Generating function for EuclRandVarList-class -> ### Aliases: EuclRandVarList -> ### Keywords: classes -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}, -+ function(x){x^5}, function(x){x^6}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandVariable", Map = L2, Domain = Reals(), Range = Reals()) -> R2 <- EuclRandMatrix(Map = L1, ncol = 2, Domain = Reals(), dimension = 1) -> R3 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) -> -> (RL1 <- EuclRandVarList(R1, R2, R3)) -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: Euclidean Space with dimension 1 -[[3]] -Dim of Map: 2 2 -Range: Euclidean Space with dimension 1 -> is(R1, "EuclRandVarList") -[1] FALSE -> as(R1, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -length of Map: 4 -Range: Real Space with dimension 1 -> is(R2, "EuclRandVarList") -[1] FALSE -> as(R2, "EuclRandVarList") -An object of class ?EuclRandVarList? -Domain: Real Space with dimension 1 -[[1]] -Dim of Map: 3 2 -Range: Euclidean Space with dimension 1 -> -> Map(exp(RL1)[[1]]) # "Math" group -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - exp(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - exp(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - exp(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - exp(f1(x)) -} - - -> -> ## "Arith" group -> Map((1 + RL1)[[1]]) -[[1]] -function (x) -{ - f2 <- function (x) - { - exp(x) - } - 1 + f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - abs(x) - } - 1 + f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - sin(x) - } - 1 + f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - floor(x) - } - 1 + f2(x) -} - - -> Map((RL1 * 2)[[2]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - x - } - f1(x) * 2 -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - x^2 - } - f1(x) * 2 -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - x^3 - } - f1(x) * 2 -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - x^4 - } - f1(x) * 2 -} - - -[[5]] -function (x) -{ - f1 <- function (x) - { - x^5 - } - f1(x) * 2 -} - - -[[6]] -function (x) -{ - f1 <- function (x) - { - x^6 - } - f1(x) * 2 -} - - -> Map((RL1 / RL1)[[3]]) -[[1]] -function (x) -{ - f1 <- function (x) - { - exp(x) - } - f2 <- function (x) - { - exp(x) - } - f1(x)/f2(x) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - abs(x) - } - f2 <- function (x) - { - abs(x) - } - f1(x)/f2(x) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - sin(x) - } - f2 <- function (x) - { - sin(x) - } - f1(x)/f2(x) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - floor(x) - } - f2 <- function (x) - { - floor(x) - } - f1(x)/f2(x) -} - - -> -> ## The function is currently defined as -> function(...){ -+ new("EuclRandVarList", list(...)) -+ } -function (...) -{ - new("EuclRandVarList", list(...)) -} -> -> -> -> cleanEx() -> nameEx("EuclRandVariable-class") -> ### * EuclRandVariable-class -> -> flush(stderr()); flush(stdout()) -> -> ### Name: EuclRandVariable-class -> ### Title: Euclidean random variable -> ### Aliases: EuclRandVariable-class -> ### coerce,EuclRandVariable,EuclRandMatrix-method -> ### coerce,EuclRandVariable,EuclRandVarList-method -> ### Range<-,EuclRandVariable-method [,EuclRandVariable-method evalRandVar -> ### evalRandVar,EuclRandVariable,numeric,missing-method -> ### evalRandVar,EuclRandVariable,matrix,missing-method -> ### evalRandVar,EuclRandVariable,numeric,Distribution-method -> ### evalRandVar,EuclRandVariable,matrix,Distribution-method imageDistr -> ### imageDistr,EuclRandVariable,Distribution-method -> ### dimension,EuclRandVariable-method t,EuclRandVariable-method -> ### %*%,matrix,EuclRandVariable-method -> ### %*%,numeric,EuclRandVariable-method -> ### %*%,EuclRandVariable,matrix-method -> ### %*%,EuclRandVariable,numeric-method -> ### %*%,EuclRandVariable,EuclRandVariable-method -> ### %*%,EuclRandVariable,EuclRandMatrix-method -> ### %*%,EuclRandMatrix,EuclRandVariable-method -> ### Arith,numeric,EuclRandVariable-method -> ### Arith,EuclRandVariable,numeric-method -> ### Arith,EuclRandVariable,EuclRandVariable-method -> ### Math,EuclRandVariable-method -> ### E,UnivariateDistribution,EuclRandVariable,missing-method -> ### E,AbscontDistribution,EuclRandVariable,missing-method -> ### E,DiscreteDistribution,EuclRandVariable,missing-method -> ### E,MultivariateDistribution,EuclRandVariable,missing-method -> ### E,DiscreteMVDistribution,EuclRandVariable,missing-method -> ### E,UnivariateCondDistribution,EuclRandVariable,numeric-method -> ### E,AbscontCondDistribution,EuclRandVariable,numeric-method -> ### E,DiscreteCondDistribution,EuclRandVariable,numeric-method -> ### Keywords: classes arith math -> -> ### ** Examples -> -> L1 <- list(function(x){x}, function(x){x^2}, function(x){x^3}, function(x){x^4}) -> L2 <- list(function(x){exp(x)}, function(x){abs(x)}, -+ function(x){sin(x)}, function(x){floor(x)}) -> -> R1 <- new("EuclRandVariable", Map = L1, Domain = Reals(), Range = Reals()) -> dimension(R1) -[1] 4 -> Map(R1) -[[1]] -function (x) -{ - x -} - -[[2]] -function (x) -{ - x^2 -} - -[[3]] -function (x) -{ - x^3 -} - -[[4]] -function (x) -{ - x^4 -} - -> Range(R1) -An object of class "Reals" -Slot "dimension": -[1] 1 - -Slot "name": -[1] "Real Space" - -> R1[2] -An object of class ?EuclRandVariable? -length of Map: 1 -Domain: Real Space with dimension 1 -Range: Real Space with dimension 1 -> Map(R1[3]) -[[1]] -function (x) -{ - x^3 -} - -> Map(R1[c(1,2,4)]) -[[1]] -function (x) -{ - x -} - -[[2]] -function (x) -{ - x^2 -} - -[[3]] -function (x) -{ - x^4 -} - -> Map(R1[2:4]) -[[1]] -function (x) -{ - x^2 -} - -[[2]] -function (x) -{ - x^3 -} - -[[3]] -function (x) -{ - x^4 -} - -> set.seed(123) -> evalRandVar(R1, rnorm(1)) - [,1] -[1,] -0.56047565 -[2,] 0.31413295 -[3,] -0.17606387 -[4,] 0.09867951 -> x <- as.matrix(rnorm(10)) -> res.R1 <- evalRandVar(R1, x) -> res.R1[2,,] # results for Map(R1)[[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.R1[2,1,] # results for Map(R1)[[2]](x[1,]) -[1] 0.05298168 -> -> R2 <- EuclRandVariable(L2, Domain = Reals(), dimension = 1) -> dimension(R2) -[1] 4 -> DL1 <- imageDistr(R2, Norm()) -> plot(DL1) -> -> Domain(R2) <- EuclideanSpace(dimension = 2) -> Range(R2) <- EuclideanSpace(dimension = 2) -> dimension(R2) -[1] 8 -> (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 -> res.R2 <- evalRandVar(R2, X) -> res.R2[3,,1] # results for Map(R2)[[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 -> -> Map(log(abs(R2))) # "Math" group generic -[[1]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - exp(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -[[2]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - abs(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -[[3]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - sin(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -[[4]] -function (x) -{ - f1 <- function (x) - { - f1 <- function (x) - { - floor(x) - } - abs(f1(x)) - } - log(f1(x)) -} - - -> -> # "Arith" group generic -> Map(3 + R1) -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 3 + f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 3 + f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 3 + f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 3 + f2(x) -} - - -> Map(c(1,3,5) * R1) -Warning in c(1, 3, 5) * R1 : - longer object length is not a multiple of shorter object length -[[1]] -function (x) -{ - f2 <- function (x) - { - x - } - 1 * f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - x^2 - } - 3 * f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { - x^3 - } - 5 * f2(x) -} - - -[[4]] -function (x) -{ - f2 <- function (x) - { - x^4 - } - 1 * f2(x) -} - - -> try(1:5 * R1) # error -Error in 1:5 * R1 : - length of 'numeric' has to be less or equal dimension of 'EuclRandVariable' -> Map(1:2 * R2) -[[1]] -function (x) -{ - f2 <- function (x) - { - exp(x) - } - 1:2 * f2(x) -} - - -[[2]] -function (x) -{ - f2 <- function (x) - { - abs(x) - } - 1:2 * f2(x) -} - - -[[3]] -function (x) -{ - f2 <- function (x) - { [TRUNCATED] To get the complete diff run: svnlook diff /svnroot/robast -r 868 From noreply at r-forge.r-project.org Sat Apr 23 22:25:05 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sat, 23 Apr 2016 22:25:05 +0200 (CEST) Subject: [Robast-commits] r869 - in pkg/RandVar: . inst man tests tests/Examples Message-ID: <20160423202506.2B22B187F33@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-23 22:25:04 +0200 (Sat, 23 Apr 2016) New Revision: 869 Modified: pkg/RandVar/DESCRIPTION pkg/RandVar/inst/NEWS pkg/RandVar/man/0RandVar-package.Rd pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save pkg/RandVar/tests/tests.Rout.save Log: RandVar 1.0 moved to trunk Modified: pkg/RandVar/DESCRIPTION =================================================================== --- pkg/RandVar/DESCRIPTION 2016-04-23 20:24:28 UTC (rev 868) +++ pkg/RandVar/DESCRIPTION 2016-04-23 20:25:04 UTC (rev 869) @@ -1,5 +1,5 @@ Package: RandVar -Version: 0.9.4 +Version: 1.0 Date: 2016-04-23 Title: Implementation of Random Variables Description: Implements random variables by means of S4 classes and methods. @@ -14,4 +14,4 @@ URL: http://robast.r-forge.r-project.org/ LastChangedDate: {$LastChangedDate$} LastChangedRevision: {$LastChangedRevision$} -SVNRevision: 866 +SVNRevision: 867 Modified: pkg/RandVar/inst/NEWS =================================================================== --- pkg/RandVar/inst/NEWS 2016-04-23 20:24:28 UTC (rev 868) +++ pkg/RandVar/inst/NEWS 2016-04-23 20:25:04 UTC (rev 869) @@ -8,6 +8,16 @@ information) ####################################### +version 1.0 +####################################### + +user-visible CHANGES: ++ title changed to title style / capitalization + +under the hood: ++ enhanced imports in DESCRIPTION by explicating second order imports + +####################################### version 0.9 ####################################### Modified: pkg/RandVar/man/0RandVar-package.Rd =================================================================== --- pkg/RandVar/man/0RandVar-package.Rd 2016-04-23 20:24:28 UTC (rev 868) +++ pkg/RandVar/man/0RandVar-package.Rd 2016-04-23 20:25:04 UTC (rev 869) @@ -3,7 +3,7 @@ \alias{RandVar} \docType{package} \title{ -Implementation of random variables +Implementation of Random Variables } \description{ Implementation of random variables by means of S4 classes and methods. @@ -11,14 +11,15 @@ \details{ \tabular{ll}{ Package: \tab RandVar \cr -Version: \tab 0.9.4 \cr +Version: \tab 1.0 \cr Date: \tab 2016-04-23 \cr -Depends: \tab R (>= 2.12.0), methods, startupmsg, distr(>= 2.0), distrEx(>= -2.0)\cr -LazyLoad: \tab yes \cr +Depends: \tab R (>= 2.14.0), methods, distr(>= 2.5.2), distrEx(>= +2.5)\cr +Imports: \tab startupmsg \cr +ByteCompile: \tab yes \cr License: \tab LGPL-3 \cr URL: \tab http://robast.r-forge.r-project.org/\cr -SVNRevision: \tab 866 \cr +SVNRevision: \tab 867 \cr } } \author{ Modified: pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save =================================================================== --- pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2016-04-23 20:24:28 UTC (rev 868) +++ pkg/RandVar/tests/Examples/RandVar-Ex.Rout.save 2016-04-23 20:25:04 UTC (rev 869) @@ -115,7 +115,7 @@ IQR, mad, median, var -:RandVar> Implementation of random variables (version 0.9.4) +:RandVar> Implementation of Random Variables (version 1.0) :RandVar> :RandVar> For more information see ?"RandVar", NEWS("RandVar"), as :RandVar> well as @@ -132,7 +132,7 @@ > flush(stderr()); flush(stdout()) > > ### Name: RandVar-package -> ### Title: Implementation of random variables +> ### Title: Implementation of Random Variables > ### Aliases: RandVar-package RandVar > ### Keywords: package > @@ -215,7 +215,7 @@ } t(f(x)) } - + > > R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) @@ -244,7 +244,7 @@ } gamma(f1(x)) } - + [[2]] function (x) @@ -255,7 +255,7 @@ } gamma(f1(x)) } - + [[3]] function (x) @@ -266,7 +266,7 @@ } gamma(f1(x)) } - + [[4]] function (x) @@ -277,7 +277,7 @@ } gamma(f1(x)) } - + > > ## "Arith" group @@ -291,7 +291,7 @@ } 2/f2(x) } - + [[2]] function (x) @@ -302,7 +302,7 @@ } 2/f2(x) } - + [[3]] function (x) @@ -313,7 +313,7 @@ } 2/f2(x) } - + [[4]] function (x) @@ -324,7 +324,7 @@ } 2/f2(x) } - + [[5]] function (x) @@ -335,7 +335,7 @@ } 2/f2(x) } - + [[6]] function (x) @@ -346,7 +346,7 @@ } 2/f2(x) } - + > Map(R2 * R2) [[1]] @@ -362,7 +362,7 @@ } f1(x) * f2(x) } - + [[2]] function (x) @@ -377,7 +377,7 @@ } f1(x) * f2(x) } - + [[3]] function (x) @@ -392,7 +392,7 @@ } f1(x) * f2(x) } - + [[4]] function (x) @@ -407,7 +407,7 @@ } f1(x) * f2(x) } - + > > @@ -458,7 +458,7 @@ } t(f(x)) } - + > > R2 <- EuclRandMatrix(Map = L2, ncol = 2, Domain = Reals(), dimension = 1) @@ -485,7 +485,7 @@ } gamma(f1(x)) } - + [[2]] function (x) @@ -496,7 +496,7 @@ } gamma(f1(x)) } - + [[3]] function (x) @@ -507,7 +507,7 @@ } gamma(f1(x)) } - + [[4]] function (x) @@ -518,7 +518,7 @@ } gamma(f1(x)) } - + > > ## "Arith" group @@ -532,7 +532,7 @@ } 2/f2(x) } - + [[2]] function (x) @@ -543,7 +543,7 @@ } 2/f2(x) } - + [[3]] function (x) @@ -554,7 +554,7 @@ } 2/f2(x) } - + [[4]] function (x) @@ -565,7 +565,7 @@ } 2/f2(x) } - + [[5]] function (x) @@ -576,7 +576,7 @@ } 2/f2(x) } - + [[6]] function (x) @@ -587,7 +587,7 @@ } 2/f2(x) } - + > Map(R2 * R2) [[1]] @@ -603,7 +603,7 @@ } f1(x) * f2(x) } - + [[2]] function (x) @@ -618,7 +618,7 @@ } f1(x) * f2(x) } - + [[3]] function (x) @@ -633,7 +633,7 @@ } f1(x) * f2(x) } - + [[4]] function (x) @@ -648,7 +648,7 @@ } f1(x) * f2(x) } - + > > @@ -766,7 +766,7 @@ } exp(f1(x)) } - + [[2]] function (x) @@ -777,7 +777,7 @@ } exp(f1(x)) } - + [[3]] function (x) @@ -788,7 +788,7 @@ } exp(f1(x)) } - + [[4]] function (x) @@ -799,7 +799,7 @@ } exp(f1(x)) } - + > > ## "Arith" group @@ -813,7 +813,7 @@ } 1 + f2(x) } - + [[2]] function (x) @@ -824,7 +824,7 @@ } 1 + f2(x) } - + [[3]] function (x) @@ -835,7 +835,7 @@ } 1 + f2(x) } - + [[4]] function (x) @@ -846,7 +846,7 @@ } 1 + f2(x) } - + > Map((RL1 * 2)[[2]]) [[1]] @@ -858,7 +858,7 @@ } f1(x) * 2 } - + [[2]] function (x) @@ -869,7 +869,7 @@ } f1(x) * 2 } - + [[3]] function (x) @@ -880,7 +880,7 @@ } f1(x) * 2 } - + [[4]] function (x) @@ -891,7 +891,7 @@ } f1(x) * 2 } - + [[5]] function (x) @@ -902,7 +902,7 @@ } f1(x) * 2 } - + [[6]] function (x) @@ -913,7 +913,7 @@ } f1(x) * 2 } - + > Map((RL1 / RL1)[[3]]) [[1]] @@ -929,7 +929,7 @@ } f1(x)/f2(x) } - + [[2]] function (x) @@ -944,7 +944,7 @@ } f1(x)/f2(x) } - + [[3]] function (x) @@ -959,7 +959,7 @@ } f1(x)/f2(x) } - + [[4]] function (x) @@ -974,7 +974,7 @@ } f1(x)/f2(x) } - + > > @@ -1040,7 +1040,7 @@ } exp(f1(x)) } - + [[2]] function (x) @@ -1051,7 +1051,7 @@ } exp(f1(x)) } - + [[3]] function (x) @@ -1062,7 +1062,7 @@ } exp(f1(x)) } - + [[4]] function (x) @@ -1073,7 +1073,7 @@ } exp(f1(x)) } - + > > ## "Arith" group @@ -1087,7 +1087,7 @@ } 1 + f2(x) } - + [[2]] function (x) @@ -1098,7 +1098,7 @@ } 1 + f2(x) } - + [[3]] function (x) @@ -1109,7 +1109,7 @@ } 1 + f2(x) } - + [[4]] function (x) @@ -1120,7 +1120,7 @@ } 1 + f2(x) } - + > Map((RL1 * 2)[[2]]) [[1]] @@ -1132,7 +1132,7 @@ } f1(x) * 2 } - + [[2]] function (x) @@ -1143,7 +1143,7 @@ } f1(x) * 2 } - + [[3]] function (x) @@ -1154,7 +1154,7 @@ } f1(x) * 2 } - + [[4]] function (x) @@ -1165,7 +1165,7 @@ } f1(x) * 2 } - + [[5]] function (x) @@ -1176,7 +1176,7 @@ } f1(x) * 2 } - + [[6]] function (x) @@ -1187,7 +1187,7 @@ } f1(x) * 2 } - + > Map((RL1 / RL1)[[3]]) [[1]] @@ -1203,7 +1203,7 @@ } f1(x)/f2(x) } - + [[2]] function (x) @@ -1218,7 +1218,7 @@ } f1(x)/f2(x) } - + [[3]] function (x) @@ -1233,7 +1233,7 @@ } f1(x)/f2(x) } - + [[4]] function (x) @@ -1248,7 +1248,7 @@ } f1(x)/f2(x) } - + > > ## The function is currently defined as @@ -1449,7 +1449,7 @@ } log(f1(x)) } - + [[2]] function (x) @@ -1464,7 +1464,7 @@ } log(f1(x)) } - + [[3]] function (x) @@ -1479,7 +1479,7 @@ } log(f1(x)) } - + [[4]] function (x) @@ -1494,7 +1494,7 @@ } log(f1(x)) } - + > > # "Arith" group generic @@ -1508,7 +1508,7 @@ } 3 + f2(x) } - + [[2]] function (x) @@ -1519,7 +1519,7 @@ } 3 + f2(x) } - + [[3]] function (x) @@ -1530,7 +1530,7 @@ } 3 + f2(x) } - + [[4]] function (x) @@ -1541,7 +1541,7 @@ } 3 + f2(x) } - + > Map(c(1,3,5) * R1) Warning in c(1, 3, 5) * R1 : @@ -1555,7 +1555,7 @@ } 1 * f2(x) } - + [[2]] function (x) @@ -1566,7 +1566,7 @@ } 3 * f2(x) } - + [[3]] function (x) @@ -1577,7 +1577,7 @@ } 5 * f2(x) } - + [[4]] function (x) @@ -1588,7 +1588,7 @@ } 1 * f2(x) } - + > try(1:5 * R1) # error Error in 1:5 * R1 : @@ -1603,7 +1603,7 @@ } 1:2 * f2(x) } - + [[2]] function (x) @@ -1614,7 +1614,7 @@ } 1:2 * f2(x) } - + [[3]] function (x) @@ -1625,7 +1625,7 @@ } 1:2 * f2(x) } - + [[4]] function (x) @@ -1636,7 +1636,7 @@ } 1:2 * f2(x) } - + > Map(R2 - 5) [[1]] @@ -1648,7 +1648,7 @@ } f1(x) - c(5, 5) } - + [[2]] function (x) @@ -1659,7 +1659,7 @@ } f1(x) - c(5, 5) } - + [[3]] function (x) @@ -1670,7 +1670,7 @@ } f1(x) - c(5, 5) } - + [[4]] function (x) @@ -1681,7 +1681,7 @@ } f1(x) - c(5, 5) } - + > Map(R1 ^ R1) [[1]] @@ -1697,7 +1697,7 @@ } f1(x)^f2(x) } - + [[2]] function (x) @@ -1712,7 +1712,7 @@ } f1(x)^f2(x) } - + [[3]] function (x) @@ -1727,7 +1727,7 @@ } f1(x)^f2(x) } - + [[4]] function (x) @@ -1742,7 +1742,7 @@ } f1(x)^f2(x) } - + > > @@ -1902,7 +1902,7 @@ } log(f1(x)) } - + [[2]] function (x) @@ -1917,7 +1917,7 @@ } log(f1(x)) } - + [[3]] function (x) @@ -1932,7 +1932,7 @@ } log(f1(x)) } - + [[4]] function (x) @@ -1947,7 +1947,7 @@ } log(f1(x)) } - + > > # "Arith" group generic @@ -1961,7 +1961,7 @@ } 3 + f2(x) } - + [[2]] function (x) @@ -1972,7 +1972,7 @@ } 3 + f2(x) } - + [[3]] function (x) @@ -1983,7 +1983,7 @@ } 3 + f2(x) } - + [[4]] function (x) @@ -1994,7 +1994,7 @@ } 3 + f2(x) } - + > Map(c(1,3,5) * R1) Warning in c(1, 3, 5) * R1 : @@ -2008,7 +2008,7 @@ } 1 * f2(x) } - + [[2]] function (x) @@ -2019,7 +2019,7 @@ } 3 * f2(x) } - + [[3]] function (x) @@ -2030,7 +2030,7 @@ } 5 * f2(x) } - + [[4]] function (x) @@ -2041,7 +2041,7 @@ } 1 * f2(x) } - + > try(1:5 * R1) # error Error in 1:5 * R1 : @@ -2056,7 +2056,7 @@ } 1:2 * f2(x) } - + [[2]] function (x) @@ -2067,7 +2067,7 @@ } 1:2 * f2(x) } - + [[3]] function (x) @@ -2078,7 +2078,7 @@ } 1:2 * f2(x) } - + [[4]] function (x) @@ -2089,7 +2089,7 @@ } 1:2 * f2(x) } - + > Map(R2 - 5) [[1]] @@ -2101,7 +2101,7 @@ } f1(x) - c(5, 5) } - + [[2]] function (x) @@ -2112,7 +2112,7 @@ } f1(x) - c(5, 5) } - + [[3]] function (x) @@ -2123,7 +2123,7 @@ } f1(x) - c(5, 5) } - + [[4]] function (x) @@ -2134,7 +2134,7 @@ } f1(x) - c(5, 5) } - + > Map(R1 ^ R1) [[1]] @@ -2150,7 +2150,7 @@ } f1(x)^f2(x) } - + [[2]] function (x) @@ -2165,7 +2165,7 @@ } f1(x)^f2(x) } - + [[3]] function (x) @@ -2180,7 +2180,7 @@ } f1(x)^f2(x) } - + [[4]] function (x) @@ -2195,7 +2195,7 @@ } f1(x)^f2(x) } - + > > @@ -2250,7 +2250,7 @@ function (x) { } - + > Domain(R1) @@ -2320,7 +2320,7 @@ function (x) { } - + > Domain(R1) NULL @@ -2443,7 +2443,7 @@ > ### > options(digits = 7L) > base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n") -Time elapsed: 2.46 0.27 2.74 NA NA +Time elapsed: 2.67 0.13 2.81 NA NA > grDevices::dev.off() null device 1 Modified: pkg/RandVar/tests/tests.Rout.save =================================================================== --- pkg/RandVar/tests/tests.Rout.save 2016-04-23 20:24:28 UTC (rev 868) +++ pkg/RandVar/tests/tests.Rout.save 2016-04-23 20:25:04 UTC (rev 869) @@ -1,7 +1,7 @@ -R Under development (unstable) (2013-09-11 r63902) -- "Unsuffered Consequences" -Copyright (C) 2013 The R Foundation for Statistical Computing -Platform: x86_64-unknown-linux-gnu (64-bit) +R Under development (unstable) (2016-04-22 r70532) -- "Unsuffered Consequences" +Copyright (C) 2016 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. @@ -18,16 +18,16 @@ > library(RandVar) Loading required package: distr Loading required package: startupmsg -:startupmsg> Utilities for start-up messages (version 0.8) +:startupmsg> Utilities for Start-Up Messages (version 0.9.3) :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.6.1) +: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. @@ -59,8 +59,8 @@ library, require -:distr> Object oriented implementation of distributions (version -:distr> 2.4) +:distr> Object Oriented Implementation of Distributions (version +:distr> 2.6) :distr> :distr> Attention: Arithmetics on distribution objects are :distr> understood as operations on corresponding random variables @@ -86,7 +86,7 @@ df, qqplot, sd Loading required package: distrEx -:distrEx> Extensions of package distr (version 2.4) +:distrEx> Extensions of Package 'distr' (version 2.6) :distrEx> :distrEx> Note: Packages "e1071", "moments", "fBasics" should be :distrEx> attached /before/ package "distrEx". See @@ -109,7 +109,7 @@ IQR, mad, median, var -:RandVar> Implementation of random variables (version 0.9.2) +:RandVar> Implementation of Random Variables (version 1.0) :RandVar> :RandVar> For more information see ?"RandVar", NEWS("RandVar"), as :RandVar> well as @@ -139,7 +139,7 @@ function (x) { } - + > Domain(R1) NULL @@ -280,7 +280,6 @@ x^4 } -> set.seed(123) > evalRandVar(R3, rnorm(1)) [,1] [1,] -0.56047565 @@ -409,7 +408,7 @@ } t(f(x)) } - + > dimension(R6) [1] 6 @@ -498,19 +497,19 @@ > ## "Math" group > system.time(Map(log(abs(R4))), gcFirst = TRUE) user system elapsed - 0.004 0.000 0.002 + 0 0 0 > system.time(Map(gamma(R7)), gcFirst = TRUE) user system elapsed - 0.000 0.000 0.002 + 0 0 0 > system.time(Map(exp(RL1)[[1]]), gcFirst = TRUE) user system elapsed - 0.004 0.000 0.003 + 0 0 0 > > > ## "Arith" group > system.time(Map(3 + R3), gcFirst = TRUE) user system elapsed - 0.000 0.000 0.001 + 0 0 0 > Map(c(1,3,5) * R3) [[1]] function (x) @@ -521,7 +520,7 @@ } 1 * f2(x) } - + [[2]] function (x) @@ -532,7 +531,7 @@ } 3 * f2(x) } - + [[3]] function (x) @@ -543,7 +542,7 @@ } 5 * f2(x) } - + [[4]] function (x) @@ -554,7 +553,7 @@ } 1 * f2(x) } - + Warning message: In c(1, 3, 5) * R3 : @@ -572,7 +571,7 @@ } 1:2 * f2(x) } - + [[2]] function (x) @@ -583,7 +582,7 @@ } 1:2 * f2(x) } - + [[3]] function (x) @@ -594,7 +593,7 @@ } 1:2 * f2(x) } - + [[4]] function (x) @@ -605,7 +604,7 @@ } 1:2 * f2(x) } - + > Map(2/R6) [[1]] @@ -617,7 +616,7 @@ } 2/f2(x) } - + [[2]] function (x) @@ -628,7 +627,7 @@ } 2/f2(x) } - + [[3]] function (x) @@ -639,7 +638,7 @@ } 2/f2(x) } - + [[4]] function (x) @@ -650,7 +649,7 @@ } 2/f2(x) } - + [[5]] function (x) @@ -661,7 +660,7 @@ } 2/f2(x) } - + [[6]] function (x) @@ -672,7 +671,7 @@ } 2/f2(x) } - + > Map(c(1,3,5) %% R6) [[1]] @@ -684,7 +683,7 @@ } 1%%f2(x) } - + [[2]] function (x) @@ -695,7 +694,7 @@ } 3%%f2(x) } - + [[3]] function (x) @@ -706,7 +705,7 @@ } 5%%f2(x) } - + [[4]] function (x) @@ -717,7 +716,7 @@ } 1%%f2(x) } - + [[5]] function (x) @@ -728,7 +727,7 @@ } 3%%f2(x) } - + [[6]] function (x) @@ -739,7 +738,7 @@ } 5%%f2(x) } - + > Map(R4 - 5) [[1]] @@ -751,7 +750,7 @@ } f1(x) - c(5, 5) } - + [[2]] function (x) @@ -762,7 +761,7 @@ } f1(x) - c(5, 5) } - + [[3]] function (x) @@ -773,7 +772,7 @@ } f1(x) - c(5, 5) } - + [[4]] function (x) @@ -784,7 +783,7 @@ } f1(x) - c(5, 5) } - + > Map(R6 %/% 2) [[1]] @@ -796,7 +795,7 @@ } f1(x)%/%2 } - + [[2]] function (x) @@ -807,7 +806,7 @@ } f1(x)%/%2 } - + [[3]] function (x) @@ -818,7 +817,7 @@ } f1(x)%/%2 } - + [[4]] function (x) @@ -829,7 +828,7 @@ } f1(x)%/%2 } - + [[5]] function (x) @@ -840,7 +839,7 @@ } f1(x)%/%2 } - + [[6]] function (x) @@ -851,7 +850,7 @@ } f1(x)%/%2 } - + > Map(R3 ^ R3) [[1]] @@ -867,7 +866,7 @@ } f1(x)^f2(x) } - + [[2]] function (x) @@ -882,7 +881,7 @@ } f1(x)^f2(x) } - + [[3]] function (x) @@ -897,7 +896,7 @@ } f1(x)^f2(x) } - + [[4]] function (x) @@ -912,7 +911,7 @@ } f1(x)^f2(x) } - + > Map(R7 * R7) [[1]] @@ -928,7 +927,7 @@ } f1(x) * f2(x) } - + [[2]] function (x) @@ -943,7 +942,7 @@ } f1(x) * f2(x) } - + [[3]] function (x) @@ -958,7 +957,7 @@ } f1(x) * f2(x) } - + [[4]] function (x) @@ -973,7 +972,7 @@ } f1(x) * f2(x) } - + > Map((1 + RL1)[[1]]) [[1]] @@ -985,7 +984,7 @@ } 1 + f2(x) } - + [[2]] function (x) @@ -996,7 +995,7 @@ } 1 + f2(x) } - + [[3]] function (x) @@ -1007,7 +1006,7 @@ } 1 + f2(x) } - + [[4]] function (x) @@ -1018,7 +1017,7 @@ } 1 + f2(x) } - + > Map((RL1 * 2)[[2]]) [[1]] @@ -1030,7 +1029,7 @@ } f1(x) * 2 } - + [[2]] function (x) @@ -1041,7 +1040,7 @@ } f1(x) * 2 } - + [[3]] function (x) @@ -1052,7 +1051,7 @@ } f1(x) * 2 } - + [[4]] function (x) @@ -1063,7 +1062,7 @@ } f1(x) * 2 } - + [[5]] function (x) @@ -1074,7 +1073,7 @@ } f1(x) * 2 } - + [[6]] function (x) @@ -1085,11 +1084,11 @@ } f1(x) * 2 } - + > system.time(Map((RL1 %% RL1)[[3]]), gcFirst = TRUE) user system elapsed - 0.004 0.000 0.005 + 0.02 0.00 0.02 > > > ## "%*%" @@ -1159,7 +1158,7 @@ } f1(x) + c(13L, 15L) %*% f2(x) } - + > M1[2,] [1] 2 4 6 8 10 12 14 16 > Map(R8)[[2]] @@ -1195,7 +1194,7 @@ } f1(x) + c(14L, 16L) %*% f2(x) } - + > M2 <- matrix(1:2, ncol = 2) > (R9 <- M2 %*% R7) An object of class "EuclRandMatrix" @@ -1245,7 +1244,7 @@ } f1(x) + 2L %*% f2(x) } - + [[2]] function (x) @@ -1264,7 +1263,7 @@ } f1(x) + 2L %*% f2(x) } - + > Map(1:4 %*% R3) # inner product [[1]] @@ -1300,7 +1299,7 @@ } f1(x) + 4L %*% f2(x) } - + > Map(1:2 %*% R7) # corresponds to Map(t(1:2) %*% R7) [[1]] @@ -1320,7 +1319,7 @@ } f1(x) + 2L %*% f2(x) } - + [[2]] function (x) @@ -1339,7 +1338,7 @@ } f1(x) + 2L %*% f2(x) } - + > Map(R4 %*% 1:8) # inner product [[1]] @@ -1411,7 +1410,7 @@ } t(f(x)) } - + > Map(R9 %*% 3:4) [[1]] @@ -1467,7 +1466,7 @@ } t(f(x)) } - + > Map(R9 %*% matrix(1:4, nrow = 2)) [[1]] @@ -1523,7 +1522,7 @@ } t(f(x)) } - + [[2]] function (x) @@ -1578,7 +1577,7 @@ } t(f(x)) } - + > (R10 <- R3 %*% matrix(1:16, ncol = 4)) An object of class "EuclRandMatrix" @@ -1623,7 +1622,7 @@ } t(f(x)) } - + [[2]] function (x) @@ -1662,7 +1661,7 @@ } t(f(x)) } - + [[3]] function (x) @@ -1701,7 +1700,7 @@ } t(f(x)) } - + [[4]] function (x) @@ -1740,7 +1739,7 @@ } t(f(x)) } - + > R3 %*% R3 # inner product An object of class "EuclRandMatrix" @@ -1754,7 +1753,7 @@ Range: Euclidean Space with dimension 1 > system.time(R9 %*% R7, gcFirst = TRUE) user system elapsed - 0.004 0.000 0.004 + 0 0 0 > (RL3 <- diag(dimension(RL1)) %*% RL1) An object of class "EuclRandMatrix" Dim of Map: 14 1 @@ -1765,7 +1764,7 @@ > ## %m% "matrix multiplication" for 'EuclRandVarList' > system.time(RL4 <- EuclRandVarList(t(R3[1:2]), R7) %m% EuclRandVarList(R6, R9), gcFirst = TRUE) user system elapsed - 0.028 0.000 0.028 + 0.02 0.00 0.01 > > ## integration > MVD <- DiscreteMVDistribution(supp = matrix(c(r(Pois(5))(10), r(Pois(5))(10)), ncol = 2)) @@ -1976,4 +1975,4 @@ > q("no") > proc.time() user system elapsed - 12.192 0.088 12.319 + 4.84 0.32 5.17 From noreply at r-forge.r-project.org Sat Apr 23 23:37:22 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sat, 23 Apr 2016 23:37:22 +0200 (CEST) Subject: [Robast-commits] r870 - branches/robast-1.0/pkg Message-ID: <20160423213722.E38BC187F2F@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-23 23:37:22 +0200 (Sat, 23 Apr 2016) New Revision: 870 Added: branches/robast-1.0/pkg/20160423NotToCRAN.txt Log: Note for CRAN as to RobAStRDA Added: branches/robast-1.0/pkg/20160423NotToCRAN.txt =================================================================== --- branches/robast-1.0/pkg/20160423NotToCRAN.txt (rev 0) +++ branches/robast-1.0/pkg/20160423NotToCRAN.txt 2016-04-23 21:37:22 UTC (rev 870) @@ -0,0 +1,30 @@ + RobAStRDA once again ... + +sorry to bother you with this again, we have been here before, +and there is an extensive mail exchange on this on CRAN archives +(last time 19.09.2013 13:43 "Re: CRAN submission RobAStRDA 0.9") +and some offline exchange with Uwe on this afterwards. + +To cut it short: Our package fails by size. We do not see how +to fix this; it is a database with interpolators; i.e., grids +for speed up of computations, but in addition also many interpolating +R-functions (with their environment) -- the results of approxfun (to +produce the interpolating function only once and not each time on the +fly on call). One clue might be that we simultaneously store pre R-3.0 +and post R-3.0 environments (and at run-time decide which branch to +take according to version information), and that the compression does +not work well in post R-3.0 for pre R-3.0-environments ... + +Anyway: Our sysdata.rda data set is xz compressed already but during +check gets extracted, throwing the note that our package is too large; +lazyload and putting the data somewhere else does not help either (and +even gets worse as to size). + +Uwe was so nice to offer some of his time to look at it, so maybe you +find some trick? + +Another way out would be to host the package somewhere else (in some +drat type repo with infrastructure of Dirk Eddelbuettel's) if we may +link to non CRAN-repos in a suggests/depends field of another package. + +Any help appreciated, best, Peter From noreply at r-forge.r-project.org Sun Apr 24 00:04:36 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sun, 24 Apr 2016 00:04:36 +0200 (CEST) Subject: [Robast-commits] r871 - in pkg/RobAStRDA: . R inst inst/AddMaterial/interpolation man Message-ID: <20160423220436.2C7F8187F31@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-24 00:04:35 +0200 (Sun, 24 Apr 2016) New Revision: 871 Modified: pkg/RobAStRDA/DESCRIPTION pkg/RobAStRDA/NAMESPACE pkg/RobAStRDA/R/Comment.R pkg/RobAStRDA/R/interpolAux.R pkg/RobAStRDA/R/sysdata.rda pkg/RobAStRDA/inst/AddMaterial/interpolation/interpolationscripts.R pkg/RobAStRDA/inst/NEWS pkg/RobAStRDA/man/0RobRDA-package.Rd Log: RobAStRDA -- next try for CRAN Modified: pkg/RobAStRDA/DESCRIPTION =================================================================== --- pkg/RobAStRDA/DESCRIPTION 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/DESCRIPTION 2016-04-23 22:04:35 UTC (rev 871) @@ -1,17 +1,25 @@ Package: RobAStRDA -Version: 0.9 -Date: 2013-09-11 -Title: sysdata.rda for packages of RobASt - Family of Pkgs -Description: sysdata.rda for packages of RobASt - Family of Pkgs; is currently used by pkg RobExtremes only. -Depends: R (>= 2.14.0), methods -Author: Peter Ruckdeschel, Matthias Kohl -Maintainer: Peter Ruckdeschel +Version: 1.0.1 +Date: 2016-04-23 +Title: Interpolation Grids for Packages of RobASt - Family of Pkgs +Description: Includes sysdata.rda file for packages of RobASt - family of packages; is + currently used by package RobExtremes only. +Depends: R (>= 2.14.0) +Authors at R: c(person("Matthias", "Kohl", role=c("aut", "cph")), person("Bernhard", "Spangl", + role="ctb", comment="contributed smoothed grid values of the Lagrange multipliers"), + person("Sascha", "Desmettre", role="ctb", comment="contributed smoothed grid values of + the Lagrange multipliers"), person("Eugen", "Massini", role="ctb", comment="contributed + an interactive smoothing routine for smoothing the Lagrange multipliers and smoothed + grid values of the Lagrange multipliers"), person("Mykhailo", "Pupashenko", role="ctb", + comment="helped with manual smoothing of the interpolators"), person("Daria", + "Pupashenko", role="ctb", comment="helped with manual smoothing of the interpolators"), + person("Gerald", "Kroisandt", role="ctb", comment="helped with manual smoothing of the + interpolators"), person("Peter", "Ruckdeschel", role=c("cre", "cph"), + email="peter.ruckdeschel at uni-oldenburg.de")) LazyData: yes -LazyLoad: yes -SysDataCompression: xz ByteCompile: yes License: LGPL-3 URL: http://robast.r-forge.r-project.org/ LastChangedDate: {$LastChangedDate: 2011-09-30 11:10:33 +0200 (Fr, 30 Sep 2011) $} LastChangedRevision: {$LastChangedRevision: 453 $} -SVNRevision: 694 +SVNRevision: 869 Modified: pkg/RobAStRDA/NAMESPACE =================================================================== --- pkg/RobAStRDA/NAMESPACE 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/NAMESPACE 2016-04-23 22:04:35 UTC (rev 871) @@ -0,0 +1,5 @@ + importFrom("stats", "approxfun", "predict", "smooth.spline", + "splinefun") + importFrom("utils", "head", "read.csv", "read.table") + + Modified: pkg/RobAStRDA/R/Comment.R =================================================================== --- pkg/RobAStRDA/R/Comment.R 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/R/Comment.R 2016-04-23 22:04:35 UTC (rev 871) @@ -3,4 +3,4 @@ ### CRAN-packages ROptEst and RobExtremes ### more specifically: see ?.RMXE.xi resp. ?.RMXE.th ### and contents of (system) folder of package RobExtremes, -### i.e., dir(file.path(system.file(package="RobExtremes"),"AddMaterial","interpolation")) \ No newline at end of file +### i.e., dir(file.path(system.file(package="RobExtremes"),"AddMaterial","interpolation")) Modified: pkg/RobAStRDA/R/interpolAux.R =================================================================== --- pkg/RobAStRDA/R/interpolAux.R 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/R/interpolAux.R 2016-04-23 22:04:35 UTC (rev 871) @@ -67,6 +67,7 @@ .readGridFromCSV <- function(fromFileCSV){ rg <- read.table(fromFileCSV, colClasses=rep("character",2), sep=" ", header=FALSE) + print(head(rg)) nrg <- nrow(rg) Grid <- matrix(as.numeric(as.matrix(rg)),nrow=nrg) @@ -158,9 +159,10 @@ le <- length(fromFileCSV) CSVlist <- vector("list",le) if(le>0) for(i in 1:le){ + print(fromFileCSV[i]) CSVlist[[i]] <- .readGridFromCSV(fromFileCSV[i]) - nameInSysdata <- CSVlist[[i]]$namInSysdata - namPFam <- CSVlist[[i]]$namPFam + nameInSysdata <- CSVlist[[i]][["namInSysdata"]] + namPFam <- CSVlist[[i]][["namPFam"]] Grid <- CSVlist[[i]]$Grid ### check whether object nameInSysdata already exists (ie. some ## grids for this family already exist) or not Modified: pkg/RobAStRDA/R/sysdata.rda =================================================================== (Binary files differ) Modified: pkg/RobAStRDA/inst/AddMaterial/interpolation/interpolationscripts.R =================================================================== --- pkg/RobAStRDA/inst/AddMaterial/interpolation/interpolationscripts.R 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/inst/AddMaterial/interpolation/interpolationscripts.R 2016-04-23 22:04:35 UTC (rev 871) @@ -13,7 +13,7 @@ ##### oldwd <- getwd() -.basepath <- "C:/rtest/RobASt/branches/robast-0.9/pkg" +.basepath <- "C:/rtest/RobASt/branches/robast-1.0/pkg" .myFolderFrom <- file.path(.basepath,"RobExtremesBuffer") myRDA0 <- file.path(.basepath,"RobExtremesBuffer/sysdata.rda") #myRDA <- file.path(.basepath,"RobExtremesBuffer/sysdata.rda") Modified: pkg/RobAStRDA/inst/NEWS =================================================================== --- pkg/RobAStRDA/inst/NEWS 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/inst/NEWS 2016-04-23 22:04:35 UTC (rev 871) @@ -8,6 +8,22 @@ information) ####################################### +version 1.0 +####################################### + +user-visible CHANGES: ++ title changed to title style / capitalization + +GENERAL ENHANCEMENTS: + +under the hood: ++ warning methods about not importing from methods ... ++ enhanced imports in DESCRIPTION by explicating second order imports + +BUGFIXES: + + +####################################### version 0.9 ####################################### Modified: pkg/RobAStRDA/man/0RobRDA-package.Rd =================================================================== --- pkg/RobAStRDA/man/0RobRDA-package.Rd 2016-04-23 21:37:22 UTC (rev 870) +++ pkg/RobAStRDA/man/0RobRDA-package.Rd 2016-04-23 22:04:35 UTC (rev 871) @@ -3,7 +3,7 @@ \alias{RobRDA} \docType{package} \title{ -RobRDA a sysdata.rda only package +Interpolation Grids for Packages of RobASt - Family of Pkgs } \description{ This package only contains sysdata.rda (with corresponding interpolation grids @@ -31,16 +31,14 @@ \details{ \tabular{ll}{ Package: \tab RobAStRDA \cr -Version: \tab 0.9 \cr -Date: \tab 2013-09-11 \cr -Depends: \tab R (>= 2.14.0), methods \cr -Imports: ROptEst (>= 0.9) +Version: \tab 1.0 \cr +Date: \tab 2016-04-23 \cr +Depends: \tab R (>= 2.14.0) \cr LazyData: \tab yes \cr -LazyLoad: \tab yes \cr ByteCompile: \tab yes \cr License: \tab LGPL-3 \cr URL: \tab http://robast.r-forge.r-project.org/\cr -SVNRevision: \tab 694 \cr +SVNRevision: \tab 869 \cr } } From noreply at r-forge.r-project.org Sun Apr 24 00:07:06 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sun, 24 Apr 2016 00:07:06 +0200 (CEST) Subject: [Robast-commits] r872 - in branches/robast-1.0/pkg: . RobAStRDA RobAStRDA/R Message-ID: <20160423220706.B19F9187F31@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-24 00:07:06 +0200 (Sun, 24 Apr 2016) New Revision: 872 Modified: branches/robast-1.0/pkg/20160423NotToCRAN.txt branches/robast-1.0/pkg/RobAStRDA/DESCRIPTION branches/robast-1.0/pkg/RobAStRDA/R/Comment.R branches/robast-1.0/pkg/RobAStRDA/R/interpolAux.R branches/robast-1.0/pkg/RobAStRDA/R/sysdata.rda Log: in parallel: RobAStRDA in branch 1.0 Modified: branches/robast-1.0/pkg/20160423NotToCRAN.txt =================================================================== --- branches/robast-1.0/pkg/20160423NotToCRAN.txt 2016-04-23 22:04:35 UTC (rev 871) +++ branches/robast-1.0/pkg/20160423NotToCRAN.txt 2016-04-23 22:07:06 UTC (rev 872) @@ -28,3 +28,13 @@ link to non CRAN-repos in a suggests/depends field of another package. Any help appreciated, best, Peter + +argh: sorry been a long day... + +The package version + just sent was using the wrong data base; I have fixed + this; the effect though is still the same as in the + previous submission, but now, due to some more grids + my colleagues have produced by now, the package has + even grown a bit larger = 4.5 MB xz compressed, 10 MB + during R CMD check... \ No newline at end of file Modified: branches/robast-1.0/pkg/RobAStRDA/DESCRIPTION =================================================================== --- branches/robast-1.0/pkg/RobAStRDA/DESCRIPTION 2016-04-23 22:04:35 UTC (rev 871) +++ branches/robast-1.0/pkg/RobAStRDA/DESCRIPTION 2016-04-23 22:07:06 UTC (rev 872) @@ -6,11 +6,14 @@ is currently used by package RobExtremes only. Depends: R (>= 2.14.0) Authors at R: c(person("Matthias", "Kohl", role=c("aut", "cph")), - person("Bernhard", "Spangl", role="ctb", comment="helped with manual smoothing of the interpolators"), + person("Bernhard", "Spangl", role="ctb", comment="contributed smoothed grid values of the Lagrange multipliers"), + person("Sascha", "Desmettre", role="ctb", comment="contributed smoothed grid values of the Lagrange multipliers"), + person("Eugen", "Massini", role="ctb", comment="contributed an interactive smoothing routine for smoothing the Lagrange multipliers + and smoothed grid values of the Lagrange multipliers"), person("Mykhailo", "Pupashenko", role="ctb", comment="helped with manual smoothing of the interpolators"), person("Daria", "Pupashenko", role="ctb", comment="helped with manual smoothing of the interpolators"), person("Gerald", "Kroisandt", role="ctb", comment="helped with manual smoothing of the interpolators"), - person("Peter", "Ruckdeschel", role=c("cre", "cph"), email="Peter.Ruckdeschel at itwm.fraunhofer.de")) + person("Peter", "Ruckdeschel", role=c("cre", "cph"), email="peter.ruckdeschel at uni-oldenburg.de")) LazyData: yes ByteCompile: yes License: LGPL-3 Modified: branches/robast-1.0/pkg/RobAStRDA/R/Comment.R =================================================================== --- branches/robast-1.0/pkg/RobAStRDA/R/Comment.R 2016-04-23 22:04:35 UTC (rev 871) +++ branches/robast-1.0/pkg/RobAStRDA/R/Comment.R 2016-04-23 22:07:06 UTC (rev 872) @@ -3,4 +3,4 @@ ### CRAN-packages ROptEst and RobExtremes ### more specifically: see ?.RMXE.xi resp. ?.RMXE.th ### and contents of (system) folder of package RobExtremes, -### i.e., dir(file.path(system.file(package="RobExtremes"),"AddMaterial","interpolation")) \ No newline at end of file +### i.e., dir(file.path(system.file(package="RobExtremes"),"AddMaterial","interpolation")) Modified: branches/robast-1.0/pkg/RobAStRDA/R/interpolAux.R =================================================================== --- branches/robast-1.0/pkg/RobAStRDA/R/interpolAux.R 2016-04-23 22:04:35 UTC (rev 871) +++ branches/robast-1.0/pkg/RobAStRDA/R/interpolAux.R 2016-04-23 22:07:06 UTC (rev 872) @@ -67,6 +67,7 @@ .readGridFromCSV <- function(fromFileCSV){ rg <- read.table(fromFileCSV, colClasses=rep("character",2), sep=" ", header=FALSE) + print(head(rg)) nrg <- nrow(rg) Grid <- matrix(as.numeric(as.matrix(rg)),nrow=nrg) @@ -158,9 +159,10 @@ le <- length(fromFileCSV) CSVlist <- vector("list",le) if(le>0) for(i in 1:le){ + print(fromFileCSV[i]) CSVlist[[i]] <- .readGridFromCSV(fromFileCSV[i]) - nameInSysdata <- CSVlist[[i]]$namInSysdata - namPFam <- CSVlist[[i]]$namPFam + nameInSysdata <- CSVlist[[i]][["namInSysdata"]] + namPFam <- CSVlist[[i]][["namPFam"]] Grid <- CSVlist[[i]]$Grid ### check whether object nameInSysdata already exists (ie. some ## grids for this family already exist) or not Modified: branches/robast-1.0/pkg/RobAStRDA/R/sysdata.rda =================================================================== (Binary files differ) From noreply at r-forge.r-project.org Sun Apr 24 00:07:31 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Sun, 24 Apr 2016 00:07:31 +0200 (CEST) Subject: [Robast-commits] r873 - branches/robast-1.0/pkg/RobExtremesBuffer Message-ID: <20160423220731.70792187F31@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-24 00:07:31 +0200 (Sun, 24 Apr 2016) New Revision: 873 Modified: branches/robast-1.0/pkg/RobExtremesBuffer/interpolGEV FamilyOMSE.csv branches/robast-1.0/pkg/RobExtremesBuffer/interpolGamma familyMBRE.csv branches/robast-1.0/pkg/RobExtremesBuffer/interpolWeibull FamilyMBRE.csv branches/robast-1.0/pkg/RobExtremesBuffer/interpolWeibull FamilyMBRE.txt Log: RobExtremesBuffer updated grids in branch 1.0 Modified: branches/robast-1.0/pkg/RobExtremesBuffer/interpolGEV FamilyOMSE.csv =================================================================== --- branches/robast-1.0/pkg/RobExtremesBuffer/interpolGEV FamilyOMSE.csv 2016-04-23 22:07:06 UTC (rev 872) +++ branches/robast-1.0/pkg/RobExtremesBuffer/interpolGEV FamilyOMSE.csv 2016-04-23 22:07:31 UTC (rev 873) @@ -1,434 +1,434 @@ -"-4.9500000000000000e-01" " 1.9565427971121572e+00" "-2.1236088061704345e-01" "-9.6426265305221137e-02" "-3.1920792122356856e-01" "-2.4401787471683947e-01" " 1.2502871047361859e+00" "-8.2492583911596473e-01" "-8.2492583911596740e-01" " 1.3653496708143036e+00" " 1.2502870987032659e+00" "-8.2492583216074833e-01" "-8.2492583216074922e-01" " 1.3653496767120679e+00" -"-4.9171140939597313e-01" " 1.9594872681867170e+00" "-2.1247106926224893e-01" "-9.6988207919420699e-02" "-3.1815211150525285e-01" "-2.4276937138911706e-01" " 1.2507512251940693e+00" "-8.2177432854335486e-01" "-8.2177432854335741e-01" " 1.3710172116142800e+00" " 1.2507512192297814e+00" "-8.2177432168701992e-01" "-8.2177432168702058e-01" " 1.3710172174447377e+00" -"-4.8513422818791946e-01" " 1.9653762118488254e+00" "-2.1269150798497666e-01" "-9.8112043787995151e-02" "-3.1604061214771001e-01" "-2.4027251413439638e-01" " 1.2516794695218896e+00" "-8.1547127416015774e-01" "-8.1547127416016019e-01" " 1.3823522966613218e+00" " 1.2516794636948687e+00" "-8.1547126750158871e-01" "-8.1547126750158949e-01" " 1.3823523023571627e+00" -"-4.7526845637583892e-01" " 1.9742096441233614e+00" "-2.1302269519545614e-01" "-9.9797369107705924e-02" "-3.1287439503574627e-01" "-2.3652849472037965e-01" " 1.2530718696527055e+00" "-8.0601641611479002e-01" "-8.0601641611479224e-01" " 1.3993549546275930e+00" " 1.2530718640316119e+00" "-8.0601640975290167e-01" "-8.0601640975290201e-01" " 1.3993549601214834e+00" -"-4.6869127516778525e-01" " 1.9800986202765885e+00" "-2.1324416554751338e-01" "-1.0092036954102293e-01" "-3.1076490615483215e-01" "-2.3403408005497431e-01" " 1.2540001800139995e+00" "-7.9971282111120501e-01" "-7.9971282111120701e-01" " 1.4106901011003210e+00" " 1.2540001745302245e+00" "-7.9971281494714153e-01" "-7.9971281494714186e-01" " 1.4106901064595456e+00" -"-4.6540268456375838e-01" " 1.9830431173530110e+00" "-2.1335523310360674e-01" "-1.0148160153849990e-01" "-3.0971080791225181e-01" "-2.3278762441027959e-01" " 1.2544643559008333e+00" "-7.9656084403851979e-01" "-7.9656084403852168e-01" " 1.4163576972772762e+00" " 1.2544643504857307e+00" "-7.9656083797338262e-01" "-7.9656083797338295e-01" " 1.4163577025691532e+00" -"-4.6211409395973152e-01" " 1.9859876215904571e+00" "-2.1346658966470047e-01" "-1.0204260076749448e-01" "-3.0865727096740508e-01" "-2.3154180870162247e-01" " 1.2549285494758706e+00" "-7.9340870847326939e-01" "-7.9340870847327116e-01" " 1.4220253146434179e+00" " 1.2549285441294509e+00" "-7.9340870250706830e-01" "-7.9340870250706852e-01" " 1.4220253198679347e+00" -"-4.5553691275167785e-01" " 1.9918766550318769e+00" "-2.1369037205676075e-01" "-1.0316373905295236e-01" "-3.0655227246836103e-01" "-2.2905251352451828e-01" " 1.2558570013427917e+00" "-7.8710384552916191e-01" "-7.8710384552916346e-01" " 1.4333606306296354e+00" " 1.2558569961337740e+00" "-7.8710383976086518e-01" "-7.8710383976086518e-01" " 1.4333606357193867e+00" -"-4.5224832214765098e-01" " 1.9948211857023970e+00" "-2.1380290312838418e-01" "-1.0372379408385358e-01" "-3.0550101444093059e-01" "-2.2780924797695179e-01" " 1.2563212655182581e+00" "-7.8395105677574617e-01" "-7.8395105677574795e-01" " 1.4390283386265399e+00" " 1.2563212603779614e+00" "-7.8395105110641838e-01" "-7.8395105110641827e-01" " 1.4390283436488822e+00" -"-4.4895973154362417e-01" " 1.9977657253663128e+00" "-2.1391595013920575e-01" "-1.0428343592706805e-01" "-3.0445075587693865e-01" "-2.2656707302651310e-01" " 1.2567855593789468e+00" "-7.8079797395423667e-01" "-7.8079797395423822e-01" " 1.4446960887008493e+00" " 1.2567855543073851e+00" "-7.8079796838388849e-01" "-7.8079796838388837e-01" " 1.4446960936557620e+00" -"-4.4567114093959731e-01" " 2.0007102732434063e+00" "-2.1402958833226937e-01" "-1.0484260556370439e-01" "-3.0340164131900371e-01" "-2.2532612701021942e-01" " 1.2572498861826991e+00" "-7.7764454874103672e-01" "-7.7764454874103806e-01" " 1.4503638884759995e+00" " 1.2572498811798878e+00" "-7.7764454326967858e-01" "-7.7764454326967847e-01" " 1.4503638933634613e+00" -"-4.4238255033557045e-01" " 2.0036548285534583e+00" "-2.1414389295061911e-01" "-1.0540124397487123e-01" "-3.0235381530974481e-01" "-2.2408654826508803e-01" " 1.2577142491873563e+00" "-7.7449073281255010e-01" "-7.7449073281255187e-01" " 1.4560317455754270e+00" " 1.2577142442533111e+00" "-7.7449072744019221e-01" "-7.7449072744019221e-01" " 1.4560317503954130e+00" -"-4.3909395973154364e-01" " 2.0065993899969161e+00" "-2.1425894179577115e-01" "-1.0595929037639211e-01" "-3.0130742734925708e-01" "-2.2284847752084505e-01" " 1.2581786514340556e+00" "-7.7133647482067613e-01" "-7.7133647482067746e-01" " 1.4616996683310217e+00" " 1.2581786465687925e+00" "-7.7133646954732737e-01" "-7.7133646954732704e-01" " 1.4616996730835066e+00" -"-4.3580536912751677e-01" " 2.0095439541968965e+00" "-2.1437482290313084e-01" "-1.0651667692294992e-01" "-3.0026264676754394e-01" "-2.2161206507805165e-01" " 1.2586430950971148e+00" "-7.6818171131928947e-01" "-7.6818171131929103e-01" " 1.4673676679084910e+00" " 1.2586430903006507e+00" "-7.6818170614495718e-01" "-7.6818170614495684e-01" " 1.4673676725934488e+00" -"-4.2922818791946310e-01" " 2.0154330752815519e+00" "-2.1460944427998377e-01" "-1.0762919200876711e-01" "-2.9817860489036008e-01" "-2.1914482586989237e-01" " 1.2595721145027707e+00" "-7.6187040190545929e-01" "-7.6187040190546063e-01" " 1.4787039450256958e+00" " 1.2595721098439527e+00" "-7.6187039692917313e-01" "-7.6187039692917269e-01" " 1.4787039495755203e+00" -"-4.2265100671140943e-01" " 2.0213221606376828e+00" "-2.1484848183219876e-01" "-1.0873823234750449e-01" "-2.9610308397803203e-01" "-2.1668605218676909e-01" " 1.2605013230652358e+00" "-7.5555627280601945e-01" "-7.5555627280602056e-01" " 1.4900406719203274e+00" " 1.2605013185441301e+00" "-7.5555626802778331e-01" "-7.5555626802778275e-01" " 1.4900406763349152e+00" -"-4.1936241610738256e-01" " 2.0242666795019364e+00" "-2.1496988422991872e-01" "-1.0929127490301611e-01" "-2.9506895694936508e-01" "-2.1546022234160564e-01" " 1.2609660027252148e+00" "-7.5239798210501163e-01" "-7.5239798210501274e-01" " 1.4957092345147769e+00" " 1.2609659982729897e+00" "-7.5239797742579650e-01" "-7.5239797742579584e-01" " 1.4957092388617081e+00" -"-4.1607382550335570e-01" " 2.0272111736949840e+00" "-2.1509266888005713e-01" "-1.0984323659677218e-01" "-2.9403749710621047e-01" "-2.1423697110552173e-01" " 1.2614307328526835e+00" "-7.4923877151505691e-01" "-7.4923877151505813e-01" " 1.5013779499472448e+00" " 1.2614307284693556e+00" "-7.4923876693485680e-01" "-7.4923876693485636e-01" " 1.5013779542264936e+00" -"-4.0949664429530203e-01" " 2.0331000562809090e+00" "-2.1534277302088070e-01" "-1.1094362558389319e-01" "-2.9198333245379299e-01" "-2.1179883182571604e-01" " 1.2623603415623326e+00" "-7.4291726256316948e-01" "-7.4291726256317059e-01" " 1.5127159059075961e+00" " 1.2623603373168473e+00" "-7.4291725818097065e-01" "-7.4291725818096987e-01" " 1.5127159100514045e+00" -"-4.0620805369127516e-01" " 2.0360444287805084e+00" "-2.1547028655321129e-01" "-1.1149190696969603e-01" "-2.9096100438320738e-01" "-2.1058425746455597e-01" " 1.2628252186706328e+00" "-7.3975480014866779e-01" "-7.3975480014866912e-01" " 1.5183851797261596e+00" " 1.2628252144940928e+00" "-7.3975479586544968e-01" "-7.3975479586544912e-01" " 1.5183851838022102e+00" -"-4.0291946308724835e-01" " 2.0389887441191390e+00" "-2.1559957029501126e-01" "-1.1203881605586322e-01" "-2.8994209721603076e-01" "-2.0937288920875008e-01" " 1.2632901427205221e+00" "-7.3659108775547466e-01" "-7.3659108775547577e-01" " 1.5240546737048699e+00" " 1.2632901386129420e+00" "-7.3659108357121916e-01" "-7.3659108357121839e-01" " 1.5240546777131390e+00" -"-3.9963087248322149e-01" " 2.0419329908341202e+00" "-2.1573072063590229e-01" "-1.1258428177483454e-01" "-2.8892680052431230e-01" "-2.0816488455533552e-01" " 1.2637551100843523e+00" "-7.3342603343426738e-01" "-7.3342603343426838e-01" " 1.5297244081929089e+00" " 1.2637551060457437e+00" "-7.3342602934894918e-01" "-7.3342602934894852e-01" " 1.5297244121333764e+00" -"-3.9634228187919462e-01" " 2.0448771567595641e+00" "-2.1586383383926588e-01" "-1.1312823343629405e-01" "-2.8791530412064315e-01" "-2.0696040113250053e-01" " 1.2642201165563334e+00" "-7.3025954325111575e-01" "-7.3025954325111697e-01" " 1.5353944042802281e+00" " 1.2642201125867032e+00" "-7.3025953926470200e-01" "-7.3025953926470133e-01" " 1.5353944081528768e+00" -"-3.9305369127516776e-01" " 2.0478212288905402e+00" "-2.1599900549381784e-01" "-1.1367060113961583e-01" "-2.8690779717803039e-01" "-2.0575959643869399e-01" " 1.2646851571996121e+00" "-7.2709152127303966e-01" "-7.2709152127304066e-01" " 1.5410646838510267e+00" " 1.2646851532989629e+00" "-7.2709151738548805e-01" "-7.2709151738548738e-01" " 1.5410646876558460e+00" -"-3.8976510067114095e-01" " 2.0507651908659525e+00" "-2.1613632848961153e-01" "-1.1421131814293382e-01" "-2.8590446631114436e-01" "-2.0456262745340714e-01" " 1.2651502241530805e+00" "-7.2392186357085431e-01" "-7.2392186357085542e-01" " 1.5467352719665093e+00" " 1.2651502203214082e+00" "-7.2392185978211199e-01" "-7.2392185978211132e-01" " 1.5467352757034922e+00" -"-3.8647651006711409e-01" " 2.0537090254856638e+00" "-2.1627589504203468e-01" "-1.1475031849407219e-01" "-2.8490549749507144e-01" "-2.0336965102639151e-01" " 1.2656153088245679e+00" "-7.2075046421632483e-01" "-7.2075046421632571e-01" " 1.5524061944821272e+00" " 1.2656153050618615e+00" "-7.2075046052632752e-01" "-7.2075046052632685e-01" " 1.5524061981512756e+00" -"-3.8318791946308728e-01" " 2.0566527155495367e+00" "-2.1641779736647498e-01" "-1.1528753624085492e-01" "-2.8391107670489785e-01" "-2.0218082400739890e-01" " 1.2660804026219021e+00" "-7.1757721728121537e-01" "-7.1757721728121626e-01" " 1.5580774772533350e+00" " 1.2660803989281444e+00" "-7.1757721368988736e-01" "-7.1757721368988681e-01" " 1.5580774808546556e+00" -"-3.7989932885906041e-01" " 2.0595962427690870e+00" "-2.1656212619769913e-01" "-1.1582290681564959e-01" "-2.8292138803457356e-01" "-2.0099630224188042e-01" " 1.2665454959655857e+00" "-7.1440201463469188e-01" "-7.1440201463469266e-01" " 1.5637491471497713e+00" " 1.2665454923407520e+00" "-7.1440201114194535e-01" "-7.1440201114194457e-01" " 1.5637491506832788e+00" -"-3.7661073825503355e-01" " 2.0625395845024510e+00" "-2.1670896634798939e-01" "-1.1635637118899775e-01" "-2.8193660805350435e-01" "-1.9981623755808553e-01" " 1.2670105753268150e+00" "-7.1122473933552355e-01" "-7.1122473933552433e-01" " 1.5694212350978201e+00" " 1.2670105717708706e+00" "-7.1122473594125513e-01" "-7.1122473594125446e-01" " 1.5694212385635393e+00" -"-3.7332214765100669e-01" " 2.0654827170194143e+00" "-2.1685840114900701e-01" "-1.1688787171598451e-01" "-2.8095691144995927e-01" "-1.9864078077996294e-01" " 1.2674756261894595e+00" "-7.0804527223988056e-01" "-7.0804527223988156e-01" " 1.5750937730380521e+00" " 1.2674756227023602e+00" "-7.0804526894397068e-01" "-7.0804526894397013e-01" " 1.5750937764360178e+00" -"-3.7003355704697988e-01" " 2.0684256165897654e+00" "-2.1701051393241327e-01" "-1.1741735075169485e-01" "-2.7998247291220790e-01" "-1.9747008273146169e-01" " 1.2679406340373900e+00" "-7.0486349420393368e-01" "-7.0486349420393457e-01" " 1.5807667929110383e+00" " 1.2679406306190804e+00" "-7.0486349100624635e-01" "-7.0486349100624579e-01" " 1.5807667962412941e+00" -"-3.6674496644295301e-01" " 2.0713682583833877e+00" "-2.1716538601032931e-01" "-1.1794475230667197e-01" "-2.7901346433152774e-01" "-1.9630429224988485e-01" " 1.2684055833193457e+00" "-7.0167928421359016e-01" "-7.0167928421359105e-01" " 1.5864403276730101e+00" " 1.2684055799697600e+00" "-7.0167928111397249e-01" "-7.0167928111397204e-01" " 1.5864403309356123e+00" -"-3.6345637583892620e-01" " 2.0743106131705451e+00" "-2.1732309061671598e-01" "-1.1847002701329130e-01" "-2.7805004641122910e-01" "-1.9514355022595264e-01" " 1.2688704543435492e+00" "-6.9849251377370625e-01" "-6.9849251377370702e-01" " 1.5921144143428483e+00" " 1.2688704510626092e+00" "-6.9849251077198582e-01" "-6.9849251077198515e-01" " 1.5921144175378654e+00" -"-3.6016778523489934e-01" " 2.0772526506215967e+00" "-2.1748369896599390e-01" "-1.1899312715938638e-01" "-2.7709237705763029e-01" "-1.9398799556373961e-01" " 1.2693352263830922e+00" "-6.9530305251887492e-01" "-6.9530305251887570e-01" " 1.5977890909550954e+00" " 1.2693352231707060e+00" "-6.9530304961485867e-01" "-6.9530304961485800e-01" " 1.5977890940826083e+00" -"-3.5687919463087248e-01" " 2.0801943404069019e+00" "-2.1764728227258387e-01" "-1.1951400503279079e-01" "-2.7614061417704983e-01" "-1.9283776716732010e-01" " 1.2697998787110667e+00" "-6.9211077008368982e-01" "-6.9211077008369071e-01" " 1.6034643955442931e+00" " 1.2697998755671305e+00" "-6.9211076727716425e-01" "-6.9211076727716370e-01" " 1.6034643986043977e+00" -"-3.5359060402684561e-01" " 2.0831356511036105e+00" "-2.1781390939208600e-01" "-1.2003261471092665e-01" "-2.7519491227824672e-01" "-1.9169300096921921e-01" " 1.2702643895473049e+00" "-6.8891553450298149e-01" "-6.8891553450298226e-01" " 1.6091403671544726e+00" " 1.2702643864716989e+00" "-6.8891553179371190e-01" "-6.8891553179371134e-01" " 1.6091403701472777e+00" -"-3.5030201342281880e-01" " 2.0860765469160345e+00" "-2.1798363974481755e-01" "-1.2054891742957095e-01" "-2.7425541227974282e-01" "-1.9055382101576362e-01" " 1.2707287328985917e+00" "-6.8571720741252862e-01" "-6.8571720741252951e-01" " 1.6148170488676215e+00" " 1.2707287298911818e+00" "-6.8571720480025544e-01" "-6.8571720480025466e-01" " 1.6148170517932512e+00" -"-3.4701342281879194e-01" " 2.0890169909552752e+00" "-2.1815653039227534e-01" "-1.2106287621408940e-01" "-2.7332225170250068e-01" "-1.8942034838173044e-01" " 1.2711928817184515e+00" "-6.8251564884834737e-01" "-6.8251564884834803e-01" " 1.6204944847752143e+00" " 1.2711928787790874e+00" "-6.8251564633278439e-01" "-6.8251564633278372e-01" " 1.6204944876338110e+00" -"-3.4372483221476513e-01" " 2.0919569463324348e+00" "-2.1833263839595601e-01" "-1.2157445408984753e-01" "-2.7239556806748272e-01" "-1.8829270414189686e-01" " 1.2716568089604092e+00" "-6.7931071884645355e-01" "-6.7931071884645433e-01" " 1.6261727189687269e+00" " 1.2716568060889233e+00" "-6.7931071642728913e-01" "-6.7931071642728869e-01" " 1.6261727217604489e+00" -"-3.4043624161073827e-01" " 2.0948963750496485e+00" "-2.1851201812235865e-01" "-1.2208361597807950e-01" "-2.7147549489207429e-01" "-1.8717100511158136e-01" " 1.2721204864991222e+00" "-6.7610227608973716e-01" "-6.7610227608973794e-01" " 1.6318517965696533e+00" " 1.2721204836953304e+00" "-6.7610227376663334e-01" "-6.7610227376663268e-01" " 1.6318517992946766e+00" -"-3.3714765100671140e-01" " 2.0978352346731777e+00" "-2.1869471315799163e-01" "-1.2259033438349334e-01" "-2.7056214967935222e-01" "-1.8605535106826729e-01" " 1.2725838818937787e+00" "-6.7289017384858285e-01" "-6.7289017384858363e-01" " 1.6375317668195641e+00" " 1.2725838791574793e+00" "-6.7289017162117415e-01" "-6.7289017162117337e-01" " 1.6375317694780815e+00" -"-3.3385906040268454e-01" " 2.1007734816603172e+00" "-2.1888076439436541e-01" "-1.2309458370666539e-01" "-2.6965564592881613e-01" "-1.8494583752997928e-01" " 1.2730469616246993e+00" "-6.6967426404024877e-01" "-6.6967426404024932e-01" " 1.6432126799900479e+00" " 1.2730469589556737e+00" "-6.6967426190814261e-01" "-6.6967426190814172e-01" " 1.6432126825822717e+00" -"-3.3057046979865773e-01" " 2.1037110724683625e+00" "-2.1907021272299085e-01" "-1.2359633834817207e-01" "-2.6875609713996573e-01" "-1.8384256001474200e-01" " 1.2735096921722053e+00" "-6.6645439858199307e-01" "-6.6645439858199362e-01" " 1.6488945863526947e+00" " 1.2735096895702158e+00" "-6.6645439654476912e-01" "-6.6645439654476823e-01" " 1.6488945888788535e+00" -"-3.2728187919463086e-01" " 2.1066479627955368e+00" "-2.1926309697255889e-01" "-1.2409557410293240e-01" "-2.6786361367585260e-01" "-1.8274561056232430e-01" " 1.2739720392671372e+00" "-6.6323042863589876e-01" "-6.6323042863589943e-01" " 1.6545775368774913e+00" " 1.2739720367319296e+00" "-6.6323042669310972e-01" "-6.6323042669310894e-01" " 1.6545775393378337e+00" -"-3.2399328859060406e-01" " 2.1095841053037772e+00" "-2.1945944772048262e-01" "-1.2459227234323564e-01" "-2.6697829335373630e-01" "-1.8165506729947248e-01" " 1.2744339656424128e+00" "-6.6000220234334717e-01" "-6.6000220234334783e-01" " 1.6602615853280223e+00" " 1.2744339631737149e+00" "-6.6000220049451985e-01" "-6.6000220049451885e-01" " 1.6602615877228122e+00" -"-3.2070469798657719e-01" " 2.1125194518959525e+00" "-2.1965929348135546e-01" "-1.2508641583571348e-01" "-2.6610023085442835e-01" "-1.8057100487467689e-01" " 1.2748954332814688e+00" "-6.5676956709054368e-01" "-6.5676956709054435e-01" " 1.6659467861662709e+00" " 1.2748954308789924e+00" "-6.5676956533517894e-01" "-6.5676956533517783e-01" " 1.6659467884957913e+00" -"-3.1741610738255033e-01" " 2.1154539535220187e+00" "-2.1986266019773781e-01" "-1.2557798902566025e-01" "-2.6522951687174362e-01" "-1.7949349306465781e-01" " 1.2753564032532441e+00" "-6.5353236945353499e-01" "-6.5353236945353554e-01" " 1.6716331947198202e+00" " 1.2753564009166831e+00" "-6.5353236779110779e-01" "-6.5353236779110679e-01" " 1.6716331969843696e+00" -"-3.1412751677852346e-01" " 2.1183875573202950e+00" "-2.2006956352405749e-01" "-1.2606698307302061e-01" "-2.6436622615151062e-01" "-1.7842258215905457e-01" " 1.2758168329686799e+00" "-6.5029045276773167e-01" "-6.5029045276773223e-01" " 1.6773208697786557e+00" " 1.2758168306977109e+00" "-6.5029045119768902e-01" "-6.5029045119768802e-01" " 1.6773208719785522e+00" -"-3.0755033557046979e-01" " 2.1242518561751109e+00" "-2.2049403233608839e-01" "-1.2703720509441080e-01" "-2.6266219753372649e-01" "-1.7630074473257107e-01" " 1.2767358976163026e+00" "-6.4379183235074866e-01" "-6.4379183235074933e-01" " 1.6887002580345303e+00" " 1.2767358954754777e+00" "-6.4379183096370041e-01" "-6.4379183096369930e-01" " 1.6887002601061452e+00" -"-3.0097315436241612e-01" " 2.1301119179436712e+00" "-2.2093280457660677e-01" "-1.2799702460874152e-01" "-2.6098871107173000e-01" "-1.7420585593817811e-01" " 1.2776522791958767e+00" "-6.3727244604160826e-01" "-6.3727244604160893e-01" " 1.7000854281785820e+00" " 1.2776522771836909e+00" "-6.3727244483499756e-01" "-6.3727244483499634e-01" " 1.7000854301234019e+00" -"-2.9768456375838925e-01" " 2.1330402246340832e+00" "-2.2115758489553600e-01" "-1.2847301696156002e-01" "-2.6016359436132097e-01" "-1.7316862616446918e-01" " 1.2781093543683808e+00" "-6.3400457166894031e-01" "-6.3400457166894086e-01" " 1.7057803312638362e+00" " 1.2781093524199068e+00" "-6.3400457055151727e-01" "-6.3400457055151604e-01" " 1.7057803331458612e+00" -"-2.9439597315436239e-01" " 2.1359673061089022e+00" "-2.2138596656077197e-01" "-1.2894639583912995e-01" "-2.5934630335689096e-01" "-1.7213824185307647e-01" " 1.2785656240159784e+00" "-6.3073103146897957e-01" "-6.3073103146898024e-01" " 1.7114768627850736e+00" " 1.2785656221307848e+00" "-6.3073103044001633e-01" "-6.3073103044001477e-01" " 1.7114768646047300e+00" -"-2.8781879194630872e-01" " 2.1418175601523766e+00" "-2.2185353122774559e-01" "-1.2988531906573170e-01" "-2.5773539306344267e-01" "-1.7009807949146344e-01" " 1.2794755557333335e+00" "-6.2416631596815397e-01" "-6.2416631596815453e-01" " 1.7228750657465639e+00" " 1.2794755539733371e+00" "-6.2416631511379783e-01" "-6.2416631511379639e-01" " 1.7228750674428381e+00" -"-2.8453020134228191e-01" " 2.1447406160913385e+00" "-2.2209271287827376e-01" "-1.3035086636336729e-01" "-2.5694187107316163e-01" "-1.6908833637835460e-01" " 1.2799291223015308e+00" "-6.2087482185777576e-01" "-6.2087482185777643e-01" " 1.7285768644923494e+00" " 1.2799291206034140e+00" "-6.2087482108950387e-01" "-6.2087482108950254e-01" " 1.7285768661276482e+00" -"-2.7795302013422818e-01" " 2.1505822895390816e+00" "-2.2258185660776694e-01" "-1.3127414871104259e-01" "-2.5537891235425197e-01" "-1.6708958668660170e-01" " 1.2808332139901255e+00" "-6.1427276365422612e-01" "-6.1427276365422678e-01" " 1.7399861785962318e+00" " 1.2808332124142352e+00" "-6.1427276305552037e-01" "-6.1427276305551892e-01" " 1.7399861801111063e+00" -"-2.7466442953020132e-01" " 2.1535007839688660e+00" "-2.2283179694754165e-01" "-1.3173189910149558e-01" "-2.5460953951450505e-01" "-1.6610057799746844e-01" " 1.2812836379536692e+00" "-6.1096188042280808e-01" "-6.1096188042280897e-01" " 1.7456938265101587e+00" " 1.2812836364380871e+00" "-6.1096187990751460e-01" "-6.1096187990751316e-01" " 1.7456938279656240e+00" -"-2.7137583892617451e-01" " 2.1564176344257291e+00" "-2.2308530054223982e-01" "-1.3218706661431956e-01" "-2.5384827825564460e-01" "-1.6511847642719538e-01" " 1.2817329128827295e+00" "-6.0764421499287391e-01" "-6.0764421499287458e-01" " 1.7514035570208288e+00" " 1.2817329114268925e+00" "-6.0764421456003115e-01" "-6.0764421456002959e-01" " 1.7514035584174468e+00" -"-2.6808724832214764e-01" " 2.1593327790770229e+00" "-2.2334235559553989e-01" "-1.3263965948298542e-01" "-2.5309515900348178e-01" "-1.6414327923655606e-01" " 1.2821809879418209e+00" "-6.0431960778035732e-01" "-6.0431960778035809e-01" " 1.7571154366448074e+00" " 1.2821809865451468e+00" "-6.0431960742896929e-01" "-6.0431960742896751e-01" " 1.7571154379831593e+00" -"-2.6479865771812083e-01" " 2.1622461554752701e+00" "-2.2360294826211977e-01" "-1.3308968722660158e-01" "-2.5235020871906588e-01" "-1.6317498001554184e-01" " 1.2826278117972028e+00" "-6.0098789947630005e-01" "-6.0098789947630082e-01" " 1.7628295323327188e+00" " 1.2826278104590891e+00" "-6.0098789920533391e-01" "-6.0098789920533213e-01" " 1.7628295336134068e+00" -"-2.6151006711409397e-01" " 2.1651576987136680e+00" "-2.2386705650065561e-01" "-1.3353716450682790e-01" "-2.5161344050439938e-01" "-1.6221355767101533e-01" " 1.2830733311221147e+00" "-5.9764893187217083e-01" "-5.9764893187217161e-01" " 1.7685459127714280e+00" " 1.2830733298419383e+00" "-5.9764893168055355e-01" "-5.9764893168055200e-01" " 1.7685459139950752e+00" -"-2.5822147651006711e-01" " 2.1680673432705864e+00" "-2.2413465622082293e-01" "-1.3398210727096205e-01" "-2.5088486399672344e-01" "-1.6125898743905695e-01" " 1.2835174920915422e+00" "-5.9430254703454599e-01" "-5.9430254703454677e-01" " 1.7742646470818586e+00" " 1.2835174908686573e+00" "-5.9430254692116358e-01" "-5.9430254692116180e-01" " 1.7742646482491102e+00" -"-2.5493288590604024e-01" " 2.1709750236243925e+00" "-2.2440572333229733e-01" "-1.3442453146630168e-01" "-2.5016448883327896e-01" "-1.6031124455574705e-01" " 1.2839602408804691e+00" "-5.9094858703000186e-01" "-5.9094858703000264e-01" " 1.7799858043849359e+00" " 1.2839602397142091e+00" "-5.9094858699369868e-01" "-5.9094858699369690e-01" " 1.7799858054964581e+00" -"-2.5164429530201343e-01" " 2.1738806738224707e+00" "-2.2468023215626703e-01" "-1.3486445382000511e-01" "-2.4945232191616096e-01" "-1.5937030165935104e-01" " 1.2844015233403807e+00" "-5.8758689438879663e-01" "-5.8758689438879730e-01" " 1.7857094541178982e+00" " 1.2844015222300584e+00" "-5.8758689442837597e-01" "-5.8758689442837420e-01" " 1.7857094551743800e+00" -"-2.4835570469798657e-01" " 2.1767842261882615e+00" "-2.2495815065997155e-01" "-1.3530189417867330e-01" "-2.4874835920688018e-01" "-1.5843612099687387e-01" " 1.2848412840287660e+00" "-5.8421731349591921e-01" "-5.8421731349592010e-01" " 1.7914356669832454e+00" " 1.2848412829736711e+00" "-5.8421731361014229e-01" "-5.8421731361014051e-01" " 1.7914356679853964e+00" -"-2.4506711409395973e-01" " 2.1796856126142194e+00" "-2.2523944522216288e-01" "-1.3573687316876792e-01" "-2.4805259393180151e-01" "-1.5750866221750540e-01" " 1.2852794671796126e+00" "-5.8083968920004136e-01" "-5.8083968920004225e-01" " 1.7971645139997920e+00" " 1.2852794661790150e+00" "-5.8083968938762687e-01" "-5.8083968938762498e-01" " 1.7971645149483437e+00" -"-2.4177852348993289e-01" " 2.1825847649928010e+00" "-2.2552408222159326e-01" "-1.3616941216677009e-01" "-2.4736501931728977e-01" "-1.5658788497043555e-01" " 1.2857160170269093e+00" "-5.7745386634983376e-01" "-5.7745386634983453e-01" " 1.8028960661863516e+00" " 1.2857160160800569e+00" "-5.7745386660945874e-01" "-5.7745386660945686e-01" " 1.8028960670820577e+00" -"-2.3520134228187922e-01" " 2.1883760928821943e+00" "-2.2610323972032892e-01" "-1.3702726844275506e-01" "-2.4601439865477248e-01" "-1.5476620022569265e-01" " 1.2865839922762257e+00" "-5.7065700839493383e-01" "-5.7065700839493472e-01" " 1.8143675714864098e+00" " 1.2865839914345252e+00" "-5.7065700879450532e-01" "-5.7065700879450343e-01" " 1.8143675722787653e+00" -"-2.3191275167785236e-01" " 2.1912681290216609e+00" "-2.2639768015271883e-01" "-1.3745263597389629e-01" "-2.4535131661859805e-01" "-1.5386519354054370e-01" " 1.2870153041241712e+00" "-5.6724566850658509e-01" "-5.6724566850658575e-01" " 1.8201076684822932e+00" " 1.2870153033338394e+00" "-5.6724566897398743e-01" "-5.6724566897398543e-01" " 1.8201076692241831e+00" -"-2.2862416107382549e-01" " 2.1941576535187877e+00" "-2.2669530755194223e-01" "-1.3787566326924219e-01" "-2.4469636142697918e-01" "-1.5297067673487091e-01" " 1.2874447562957108e+00" "-5.6382551848968410e-01" "-5.6382551848968498e-01" " 1.8258507577421397e+00" " 1.2874447555559181e+00" "-5.6382551902343869e-01" "-5.6382551902343692e-01" " 1.8258507584343950e+00" -"-2.2533557046979868e-01" " 2.1970445963230474e+00" "-2.2699608021646872e-01" "-1.3829637620313481e-01" "-2.4404951210830830e-01" "-1.5208259807803420e-01" " 1.2878722918270846e+00" "-5.6039640695046566e-01" "-5.6039640695046633e-01" " 1.8315969113883583e+00" " 1.2878722911369833e+00" "-5.6039640754905673e-01" "-5.6039640754905473e-01" " 1.8315969120318296e+00" -"-2.2204697986577182e-01" " 2.1999288864983564e+00" "-2.2729995210418971e-01" "-1.3871480364096714e-01" "-2.4341073986104894e-01" "-1.5120090065284897e-01" " 1.2882978533752873e+00" "-5.5695818548395926e-01" "-5.5695818548395992e-01" " 1.8373462019328146e+00" " 1.2882978527340121e+00" "-5.5695818614583670e-01" "-5.5695818614583481e-01" " 1.8373462025283691e+00" -"-2.1875838926174496e-01" " 2.2028104528872428e+00" "-2.2760687608785185e-01" "-1.3913097519589493e-01" "-2.4278001392618254e-01" "-1.5032552624549478e-01" " 1.2887213835025029e+00" "-5.5351070643239375e-01" "-5.5351070643239453e-01" " 1.8430987019847389e+00" " 1.2887213829091737e+00" "-5.5351070715597406e-01" "-5.5351070715597228e-01" " 1.8430987025332590e+00" -"-2.1546979865771815e-01" " 2.2056892243322332e+00" "-2.2791680504020193e-01" "-1.3954492048107389e-01" "-2.4215730354469037e-01" "-1.4945641664215106e-01" " 1.2891428247709154e+00" "-5.5005382213799836e-01" "-5.5005382213799914e-01" " 1.8488544841533590e+00" " 1.2891428242246334e+00" "-5.5005382292166394e-01" "-5.5005382292166194e-01" " 1.8488544846557455e+00" -"-2.1218120805369128e-01" " 2.2085651294766016e+00" "-2.2822969068900645e-01" "-1.3995666974441523e-01" "-2.4154257584094860e-01" "-1.4859351252550451e-01" " 1.2895621197232487e+00" "-5.4658738601267387e-01" "-5.4658738601267465e-01" " 1.8546136210748509e+00" " 1.2895621192231015e+00" "-5.4658738685477481e-01" "-5.4658738685477271e-01" " 1.8546136215320210e+00" -"-2.0889261744966442e-01" " 2.2114380961665989e+00" "-2.2854548018211018e-01" "-1.4036625577285111e-01" "-2.4093578947291236e-01" "-1.4773675016427132e-01" " 1.2899792108243893e+00" "-5.4311125574701136e-01" "-5.4311125574701236e-01" " 1.8603761854931706e+00" " 1.2899792103694492e+00" "-5.4311125664586890e-01" "-5.4311125664586690e-01" " 1.8603761859060535e+00" -"-2.0560402684563761e-01" " 2.2143080520492191e+00" "-2.2886411952237781e-01" "-1.4077371198806912e-01" "-2.4033690098193156e-01" "-1.4688606472367499e-01" " 1.2903940405197636e+00" "-5.3962529010127447e-01" "-5.3962529010127525e-01" " 1.8661422501792193e+00" " 1.2903940401090912e+00" "-5.3962529105518220e-01" "-5.3962529105518031e-01" " 1.8661422505487579e+00" -"-1.9902684563758388e-01" " 2.2200386419803158e+00" "-2.2950973175586295e-01" "-1.4158236866560173e-01" "-2.3916264379653579e-01" "-1.4520266526528688e-01" " 1.2912166854749203e+00" "-5.3262328771063006e-01" "-5.3262328771063083e-01" " 1.8776851714381113e+00" " 1.2912166851499121e+00" "-5.3262328876940890e-01" "-5.3262328876940679e-01" " 1.8776851717238434e+00" -"-1.9573825503355707e-01" " 2.2228991312741990e+00" "-2.2983659594204453e-01" "-1.4198363637966580e-01" "-2.3858718678725299e-01" "-1.4436982113645966e-01" " 1.2916243857289231e+00" "-5.2910696955027392e-01" "-5.2910696955027470e-01" " 1.8834621734562162e+00" " 1.2916243854452862e+00" "-5.2910697065881929e-01" "-5.2910697065881729e-01" " 1.8834621737015120e+00" -"-1.9244966442953021e-01" " 2.2257563200571844e+00" "-2.3016608971025773e-01" "-1.4238291041750822e-01" "-2.3801944543501874e-01" "-1.4354279194026853e-01" " 1.2920295949790683e+00" "-5.2558025743504455e-01" "-5.2558025743504533e-01" " 1.8892429662464130e+00" " 1.2920295947358134e+00" "-5.2558025859154522e-01" "-5.2558025859154323e-01" " 1.8892429664522645e+00" -"-1.8916107382550335e-01" " 2.2286101356847650e+00" "-2.3049815478677665e-01" "-1.4278022665106258e-01" "-2.3745936789577618e-01" "-1.4272151019304247e-01" " 1.2924322562909849e+00" "-5.2204301650935314e-01" "-5.2204301650935392e-01" " 1.8950276220003583e+00" " 1.2924322560871129e+00" "-5.2204301771197570e-01" "-5.2204301771197370e-01" " 1.8950276221677680e+00" -"-1.8587248322147654e-01" " 2.2314605055124308e+00" "-2.3083273289787526e-01" "-1.4317562095226238e-01" "-2.3690690232546879e-01" "-1.4190590841111014e-01" " 1.2928323127303005e+00" "-5.1849511191761088e-01" "-5.1849511191761155e-01" " 1.9008162129097104e+00" " 1.2928323125648027e+00" "-5.1849511316450014e-01" "-5.1849511316449814e-01" " 1.9008162130396900e+00" -"-1.8258389261744967e-01" " 2.2343073569087042e+00" "-2.3116976519641613e-01" "-1.4356912952535744e-01" "-2.3636199569103056e-01" "-1.4109591902662766e-01" " 1.2932297075524346e+00" "-5.1493641001611423e-01" "-5.1493641001611512e-01" " 1.9066088110030743e+00" " 1.2932297074242918e+00" "-5.1493641130539358e-01" "-5.1493641130539158e-01" " 1.9066088110966464e+00" -"-1.7929530201342281e-01" " 2.2371506172942199e+00" "-2.3150919054161540e-01" "-1.4396078990386246e-01" "-2.3582459020335791e-01" "-1.4029147413505932e-01" " 1.2936243847719726e+00" "-5.1136678200870023e-01" "-5.1136678200870112e-01" " 1.9124054876568488e+00" " 1.2936243846801578e+00" "-5.1136678333847574e-01" "-5.1136678333847374e-01" " 1.9124054877150414e+00" -"-1.7600671140939600e-01" " 2.2399902141026442e+00" "-2.3185094721927779e-01" "-1.4435063995360820e-01" "-2.3529462688433805e-01" "-1.3949250574769664e-01" " 1.2940162885932900e+00" "-5.0778610031109062e-01" "-5.0778610031109128e-01" " 1.9182063140843808e+00" " 1.2940162885367699e+00" "-5.0778610167945271e-01" "-5.0778610167945071e-01" " 1.9182063141082284e+00" -"-1.7271812080536914e-01" " 2.2428260747676423e+00" "-2.3219497351520788e-01" "-1.4473871754042553e-01" "-2.3477204675585814e-01" "-1.3869894587583115e-01" " 1.2944053632207626e+00" "-5.0419423733900726e-01" "-5.0419423733900814e-01" " 1.9240113614990169e+00" " 1.2944053631984960e+00" "-5.0419423874403002e-01" "-5.0419423874402780e-01" " 1.9240113614895613e+00" -"-1.6942953020134227e-01" " 2.2456581268160880e+00" "-2.3254120729796282e-01" "-1.4512506072183085e-01" "-2.3425678987479448e-01" "-1.3791072668240650e-01" " 1.2947915531459691e+00" "-5.0059106689766319e-01" "-5.0059106689766408e-01" " 1.9298207008564239e+00" " 1.2947915531569076e+00" "-5.0059106833740508e-01" "-5.0059106833740308e-01" " 1.9298207008147119e+00" -"-1.6614093959731546e-01" " 2.2484862981476921e+00" "-2.3288958476710978e-01" "-1.4550970832208221e-01" "-2.3374879243798002e-01" "-1.3712778093697475e-01" " 1.2951748040092967e+00" "-4.9697646835023518e-01" "-4.9697646835023607e-01" " 1.9356344020815490e+00" " 1.2951748040523872e+00" "-4.9697646982274379e-01" "-4.9697646982274174e-01" " 1.9356344020086313e+00" -"-1.6285234899328860e-01" " 2.2513105167553720e+00" "-2.3324004170496845e-01" "-1.4589269935712323e-01" "-2.3324798967723676e-01" "-1.3635004156074021e-01" " 1.2955550617383349e+00" "-4.9335032244939064e-01" "-4.9335032244939148e-01" " 1.9414525348416589e+00" " 1.2955550618125198e+00" "-4.9335032395270301e-01" "-4.9335032395270073e-01" " 1.9414525347385898e+00" [TRUNCATED] To get the complete diff run: svnlook diff /svnroot/robast -r 873 From noreply at r-forge.r-project.org Mon Apr 25 18:09:47 2016 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Mon, 25 Apr 2016 18:09:47 +0200 (CEST) Subject: [Robast-commits] r874 - pkg/RobAStRDA Message-ID: <20160425160947.9F8E1184C73@r-forge.r-project.org> Author: ruckdeschel Date: 2016-04-25 18:09:47 +0200 (Mon, 25 Apr 2016) New Revision: 874 Modified: pkg/RobAStRDA/DESCRIPTION Log: fixed DESCRIPTION tag in RobAStRDA Modified: pkg/RobAStRDA/DESCRIPTION =================================================================== --- pkg/RobAStRDA/DESCRIPTION 2016-04-23 22:07:31 UTC (rev 873) +++ pkg/RobAStRDA/DESCRIPTION 2016-04-25 16:09:47 UTC (rev 874) @@ -1,9 +1,9 @@ Package: RobAStRDA -Version: 1.0.1 -Date: 2016-04-23 -Title: Interpolation Grids for Packages of RobASt - Family of Pkgs -Description: Includes sysdata.rda file for packages of RobASt - family of packages; is - currently used by package RobExtremes only. +Version: 1.0.2 +Date: 2016-04-25 +Title: Interpolation Grids for Packages of the 'RobASt' - Family of Packages +Description: Includes 'sysdata.rda' file for packages of the 'RobASt' - family of packages; is + currently used by package 'RobExtremes' only. Depends: R (>= 2.14.0) Authors at R: c(person("Matthias", "Kohl", role=c("aut", "cph")), person("Bernhard", "Spangl", role="ctb", comment="contributed smoothed grid values of the Lagrange multipliers"), @@ -22,4 +22,4 @@ URL: http://robast.r-forge.r-project.org/ LastChangedDate: {$LastChangedDate: 2011-09-30 11:10:33 +0200 (Fr, 30 Sep 2011) $} LastChangedRevision: {$LastChangedRevision: 453 $} -SVNRevision: 869 +SVNRevision: 874