SCM

SCM Repository

[matrix] Diff of /branches/trunk-lme4/R/lmer.R
ViewVC logotype

Diff of /branches/trunk-lme4/R/lmer.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 457, Mon Jan 24 09:12:53 2005 UTC revision 468, Sat Jan 29 14:18:34 2005 UTC
# Line 105  Line 105 
105                   }                   }
106                   gr <- if (value$analyticGradient)                   gr <- if (value$analyticGradient)
107                       function(pars) {                       function(pars) {
108                           if (!all.equal(pars, ccoef(x))) ccoef(x) <- pars                           if (!identical(TRUE,all.equal(pars, ccoef(x)))) ccoef(x) <- pars
109                           grad <- gradient(x, REML = value$REML, unconst = TRUE)                           grad <- gradient(x, REML = value$REML, unconst = TRUE)
110                           grad[constr] <- -grad[constr]/pars[constr]                           grad[constr] <- -grad[constr]/pars[constr]
111                           grad                           grad

Legend:
Removed from v.457  
changed lines
  Added in v.468

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge