[Distr-commits] r867 - branches/distr-2.5/pkg/distrMod/R pkg/distrMod/R

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

Author: ruckdeschel
Date: 2013-01-22 16:42:36 +0100 (Tue, 22 Jan 2013)
New Revision: 867

Modified:
   branches/distr-2.5/pkg/distrMod/R/validParameter.R
   pkg/distrMod/R/validParameter.R
Log:
distrMod: fixed a bug with slot withPosRestr (which is not a member of L2ParamFamily but of the respective parameter!) 

Modified: branches/distr-2.5/pkg/distrMod/R/validParameter.R
===================================================================
--- branches/distr-2.5/pkg/distrMod/R/validParameter.R	2013-01-22 13:56:58 UTC (rev 866)
+++ branches/distr-2.5/pkg/distrMod/R/validParameter.R	2013-01-22 15:42:36 UTC (rev 867)
@@ -89,7 +89,7 @@
           }
           if(length(param)>2||length(param)<1) return(FALSE)
           if("shape"%in%names(param))
-             if(param["shape"] <= tol && object at withPosRestr) return(FALSE)
+             if(param["shape"] <= tol && object at param@withPosRestr) return(FALSE)
           return(TRUE)
           })
 

Modified: pkg/distrMod/R/validParameter.R
===================================================================
--- pkg/distrMod/R/validParameter.R	2013-01-22 13:56:58 UTC (rev 866)
+++ pkg/distrMod/R/validParameter.R	2013-01-22 15:42:36 UTC (rev 867)
@@ -89,7 +89,7 @@
           }
           if(length(param)>2||length(param)<1) return(FALSE)
           if("shape"%in%names(param))
-             if(param["shape"] <= tol && object at withPosRestr) return(FALSE)
+             if(param["shape"] <= tol && object at param@withPosRestr) return(FALSE)
           return(TRUE)
           })