[Gmm-commits] r68 - in pkg/gmm: . R

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

Author: chaussep
Date: 2013-01-10 18:57:19 +0100 (Thu, 10 Jan 2013)
New Revision: 68

Modified:
   pkg/gmm/DESCRIPTION
   pkg/gmm/NEWS
   pkg/gmm/R/momentEstim.R
Log:
replaced is.real by is.double

Modified: pkg/gmm/DESCRIPTION
===================================================================
--- pkg/gmm/DESCRIPTION	2012-11-15 19:37:44 UTC (rev 67)
+++ pkg/gmm/DESCRIPTION	2013-01-10 17:57:19 UTC (rev 68)
@@ -1,6 +1,6 @@
 Package: gmm
-Version: 1.4-4
-Date: 2012-11-15
+Version: 1.4-5
+Date: 2013-01-10
 Title: Generalized Method of Moments and Generalized Empirical
         Likelihood
 Author: Pierre Chausse <pchausse at uwaterloo.ca>

Modified: pkg/gmm/NEWS
===================================================================
--- pkg/gmm/NEWS	2012-11-15 19:37:44 UTC (rev 67)
+++ pkg/gmm/NEWS	2013-01-10 17:57:19 UTC (rev 68)
@@ -1,3 +1,7 @@
+Changes in version 1.4-5
+
+o Replaced the deprecated function real(), is.real() and as.real() by double()
+
 Changes in version 1.4-4
 
 o Fixed an instability problem when the model is just identified and wmatrix is set to "ident"

Modified: pkg/gmm/R/momentEstim.R
===================================================================
--- pkg/gmm/R/momentEstim.R	2012-11-15 19:37:44 UTC (rev 67)
+++ pkg/gmm/R/momentEstim.R	2013-01-10 17:57:19 UTC (rev 68)
@@ -888,9 +888,9 @@
   if(!all(dim(w) == c(q,q)))
     stop("The matrix of weights must be qxq")
   eigenW <- svd(w)$d
-  if(!is.real(eigenW))
+  if(!is.double(eigenW))
     warning("The matrix of weights is not strictly positive definite")
-  if(is.real(eigenW))
+  if(is.double(eigenW))
     {
     if(any(eigenW<=0))
       warning("The matrix of weights is not strictly positive definite")
@@ -947,9 +947,9 @@
   if(!all(dim(w) == c(q,q)))
     stop("The matrix of weights must be qxq")
   eigenW <- svd(w)$d
-  if(!is.real(eigenW))
+  if(!is.double(eigenW))
     warning("The matrix of weights is not strictly positive definite")
-  if(is.real(eigenW))
+  if(is.double(eigenW))
     {
     if(any(eigenW<=0))
       warning("The matrix of weights is not strictly positive definite")