[Mattice-commits] r163 - pkg/R

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

Author: andrew_hipp
Date: 2009-01-20 21:11:38 +0100 (Tue, 20 Jan 2009)
New Revision: 163

Modified:
   pkg/R/informationCriterion.R
Log:
minor change to informationCriterion.R

Modified: pkg/R/informationCriterion.R
===================================================================
--- pkg/R/informationCriterion.R	2009-01-17 01:48:54 UTC (rev 162)
+++ pkg/R/informationCriterion.R	2009-01-20 20:11:38 UTC (rev 163)
@@ -27,7 +27,7 @@
   N = hansenBatch$N
   for(i in seq(outdata)) {
     temp <- hansenBatch$hansens[[i]]
-    outdata[[i]] <- informationCriterion(lnL = temp[, 'loglik'], K = temp[, 'dof'], n = N, names = row.names(temp))
+    outdata[[i]] <- informationCriterion(lnL = as.numeric(temp[, 'loglik']), K = as.numeric(temp[, 'dof']), n = as.numeric(N), names = row.names(temp))
     }
   return(outdata)
 }