[Distr-commits] r1296 - in branches/distr-2.8/pkg/distrMod: R inst

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

Author: ruckdeschel
Date: 2019-03-01 16:57:35 +0100 (Fri, 01 Mar 2019)
New Revision: 1296

Modified:
   branches/distr-2.8/pkg/distrMod/R/Estimator.R
   branches/distr-2.8/pkg/distrMod/inst/NEWS
Log:
[distrMod] branch 2.8 logical of length>1 in if-clause in trafoEst() 

Modified: branches/distr-2.8/pkg/distrMod/R/Estimator.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/Estimator.R	2019-03-01 11:15:49 UTC (rev 1295)
+++ branches/distr-2.8/pkg/distrMod/R/Estimator.R	2019-03-01 15:57:35 UTC (rev 1296)
@@ -119,7 +119,7 @@
                                nuisance = theta[idx],
                                fixed = estimator at fixed)
   fctv <- fct(main(param))
-  if(!names(fctv)==c("fval","mat") || ! is.list(fctv))
+  if(!all(names(fctv)==c("fval","mat")) || ! is.list(fctv))
      stop("Function 'fct' must be like function 'tau' in '?trafo-methods'")
 
     if(!.isUnitMatrix(fctv$mat)){

Modified: branches/distr-2.8/pkg/distrMod/inst/NEWS
===================================================================
--- branches/distr-2.8/pkg/distrMod/inst/NEWS	2019-03-01 11:15:49 UTC (rev 1295)
+++ branches/distr-2.8/pkg/distrMod/inst/NEWS	2019-03-01 15:57:35 UTC (rev 1296)
@@ -61,7 +61,8 @@
   CvMDist 
 + in fam.fall to NbinomFamily (with two parameters ) we had matrix(Tr, dimnames = DN) without
   specifying nrow and ncol 
-  
++ logical of length>1 in if-clause in trafoEst()   
+
 under the hood:
 
 + As this is more for internal purposes, example code for the parsing of dots argument