[Distr-commits] r326 - pkg/distrMod/R

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

Author: stamats
Date: 2008-11-03 06:54:55 +0100 (Mon, 03 Nov 2008)
New Revision: 326

Modified:
   pkg/distrMod/R/modifyModel.R
Log:
minor modification, L2derivDistr in case of location and scale families

Modified: pkg/distrMod/R/modifyModel.R
===================================================================
--- pkg/distrMod/R/modifyModel.R	2008-10-31 19:22:27 UTC (rev 325)
+++ pkg/distrMod/R/modifyModel.R	2008-11-03 05:54:55 UTC (rev 326)
@@ -154,13 +154,16 @@
              if(!length(nuisance(param))){
                 loc <- main(param)[1]
                 scale <- main(param)[2]
+                L2derivDistr2 <- L2derivDistr(model)[[2]]*main(param(model))[2]/scale
              }else{
                 if(names(nuisance(param)) == "loc"){
                     loc <- nuisance(param)
                     scale <- main(param)
+                    L2derivDistr2 <- L2derivDistr(model)[[2]]*main(param(model))/scale
                 }else{
                     loc <- main(param)
                     scale <- nuisance(param)
+                    L2derivDistr2 <- L2derivDistr(model)[[2]]*nuisance(param(model))/scale
                 }
              }
              M at distrSymm <- SphericalSymmetry(SymmCenter = loc)
@@ -169,7 +172,8 @@
              M at L2derivDistrSymm <- DistrSymmList(SphericalSymmetry(
                                                    SymmCenter = loc),
                                                  NoSymmetry())
-
+             M at L2derivDistr[[1]] <- L2derivDistr(model)[[1]]
+             M at L2derivDistr[[2]] <- L2derivDistr2
              fn <- paste(cl[1])
              loc.name <- locscalename(model)["loc"]
              scale.name <- locscalename(model)["scale"]