[Robast-commits] r1109 - in branches/robast-1.2/pkg/RandVar: . R inst

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2018-08-08 01:53:41 +0200 (Wed, 08 Aug 2018)
New Revision: 1109

Modified:
   branches/robast-1.2/pkg/RandVar/DESCRIPTION
   branches/robast-1.2/pkg/RandVar/R/EuclRandVariable.R
   branches/robast-1.2/pkg/RandVar/inst/NEWS
Log:
[RandVar] branch 1.2 
+ for consistency to the univariate methods, the liesInSupport() method for
  DiscreteMVDistribution is called with an extra argument checkFin, 
  which is not yet used.
+ require more recent distr/distrEx versions

Modified: branches/robast-1.2/pkg/RandVar/DESCRIPTION
===================================================================
--- branches/robast-1.2/pkg/RandVar/DESCRIPTION	2018-08-06 20:51:33 UTC (rev 1108)
+++ branches/robast-1.2/pkg/RandVar/DESCRIPTION	2018-08-07 23:53:41 UTC (rev 1109)
@@ -3,7 +3,7 @@
 Date: 2018-08-03
 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)
+Depends: R (>= 2.14.0), methods, distr(>= 2.8.0), distrEx(>= 2.8.0)
 Imports: startupmsg
 Authors at R: c(person("Matthias", "Kohl", role=c("cre", "cph", "aut"),
         email="Matthias.Kohl at stamats.de"), person("Peter", "Ruckdeschel", role=c("aut",

Modified: branches/robast-1.2/pkg/RandVar/R/EuclRandVariable.R
===================================================================
--- branches/robast-1.2/pkg/RandVar/R/EuclRandVariable.R	2018-08-06 20:51:33 UTC (rev 1108)
+++ branches/robast-1.2/pkg/RandVar/R/EuclRandVariable.R	2018-08-07 23:53:41 UTC (rev 1109)
@@ -197,7 +197,7 @@
         nrvalues <- length(RandVar)
         res <- matrix(NA, nrow = nrvalues, ncol = RandVar at Range@dimension)
         
-        if(liesInSupport(distr, x))
+        if(liesInSupport(distr, x, checkFin = TRUE))
             for(i in 1:nrvalues) res[i,] <- RandVar at Map[[i]](x)
         
         return(res)
@@ -219,7 +219,7 @@
         for(i in 1:nrvalues){
             fun <- RandVar at Map[[i]]
             for(j in 1:nrow(x))
-                if(!liesInSupport(distr, x[j,]))
+                if(!liesInSupport(distr, x[j,], checkFin = TRUE))
                     next
                 else
                     res[i,j,] <- fun(x[j,])
@@ -282,7 +282,7 @@
         d <- RandVar at Dim
         res <- array(NA, c(d[1], d[2], RandVar at Range@dimension))
 
-        if(liesInSupport(distr, x)){
+        if(liesInSupport(distr, x, checkFin = TRUE)){
             for(i in 1:d[1])
                 for(j in 1:d[2])
                     res[i,j,] <- RandVar at Map[[(i-1)*d[2] + j]](x)
@@ -308,7 +308,7 @@
             for(j in 1:d[2]){
                 fun <- RandVar at Map[[(i-1)*d[2] + j]]
                 for(k in 1:nrow(x))
-                    if(!liesInSupport(distr, x[k,]))
+                    if(!liesInSupport(distr, x[k,], checkFin = TRUE))
                         next
                     else
                         res[i,j,k,] <- fun(x[k,])

Modified: branches/robast-1.2/pkg/RandVar/inst/NEWS
===================================================================
--- branches/robast-1.2/pkg/RandVar/inst/NEWS	2018-08-06 20:51:33 UTC (rev 1108)
+++ branches/robast-1.2/pkg/RandVar/inst/NEWS	2018-08-07 23:53:41 UTC (rev 1109)
@@ -8,6 +8,18 @@
  information)
 
 #######################################
+version 1.2
+#######################################
+
+user-visible CHANGES:
++ require more recent distr/distrEx versions
+
+under the hood:
++ for consistency to the univariate methods, the liesInSupport() method for
+  DiscreteMVDistribution is called with an extra argument checkFin, 
+  which is not yet used.
+
+#######################################
 version 1.1
 #######################################