[Robast-commits] r1115 - branches/robast-1.2/pkg/RobRex/R

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

Author: ruckdeschel
Date: 2018-08-10 01:53:28 +0200 (Fri, 10 Aug 2018)
New Revision: 1115

Modified:
   branches/robast-1.2/pkg/RobRex/R/rgsOptIC_ALc.R
Log:
[RobRex] branch 1.2: 

the calls to liesInSupport gain argument "checkFin" for consistency with the method in distr/distrEx (it is not used in RobRex, though). 

Modified: branches/robast-1.2/pkg/RobRex/R/rgsOptIC_ALc.R
===================================================================
--- branches/robast-1.2/pkg/RobRex/R/rgsOptIC_ALc.R	2018-08-09 23:51:27 UTC (rev 1114)
+++ branches/robast-1.2/pkg/RobRex/R/rgsOptIC_ALc.R	2018-08-09 23:53:28 UTC (rev 1115)
@@ -209,14 +209,14 @@
     body(fct1) <- substitute({ numeric(k) }, list(k = k))
     if(is(K, "DiscreteMVDistribution")){
         fct2 <- function(x){ 
-            if(liesInSupport(K, x[1:k])){
+            if(liesInSupport(K, x[1:k], checkFin = TRUE)){
                 ind <- colSums(apply(supp, 1, "==", x[1:k])) == k
                 return(a.sc[ind])
             }else{
                 return(NA)
             }
         }
-        body(fct2) <- substitute({ if(liesInSupport(K, x[1:k])){
+        body(fct2) <- substitute({ if(liesInSupport(K, x[1:k], checkFin = TRUE)){
                                        ind <- colSums(apply(supp, 1, "==", x[1:k])) == k
                                        return(a.sc[ind])
                                    }else{
@@ -225,7 +225,7 @@
     }
     if(is(K, "DiscreteDistribution")){
         fct2 <- function(x){ 
-            if(liesInSupport(K, x[1])){
+            if(liesInSupport(K, x[1], checkFin = TRUE)){
                 ind <- (round(x[1], 8) == round(supp, 8))
                 return(a.sc[ind])
             }else{