[Distr-commits] r494 - branches/distr-2.2/pkg/distrMod/R

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

Author: stamats
Date: 2009-07-01 06:06:39 +0200 (Wed, 01 Jul 2009)
New Revision: 494

Modified:
   branches/distr-2.2/pkg/distrMod/R/modifyModel.R
Log:
small modifications to make modifyModel work with matrices in calls - hopefully this does not break any existing code ...

Modified: branches/distr-2.2/pkg/distrMod/R/modifyModel.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/modifyModel.R	2009-06-30 14:26:53 UTC (rev 493)
+++ branches/distr-2.2/pkg/distrMod/R/modifyModel.R	2009-07-01 04:06:39 UTC (rev 494)
@@ -67,7 +67,7 @@
              w <- which(call.n %in% par.names)
              if(length(w))
                 fam.call <- fam.call[-w]
-             fam.call <-  as.call(c(unlist(as.list(fam.call)),theta))
+             fam.call <-  as.call(c(as.list(fam.call),theta))
           }
 
           M at fam.call <- fam.call