[Mattice-commits] r119 - pkg/R

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

Author: andrew_hipp
Date: 2008-12-30 07:45:12 +0100 (Tue, 30 Dec 2008)
New Revision: 119

Modified:
   pkg/R/informationCriterion.R
Log:
minor fixes

Modified: pkg/R/informationCriterion.R
===================================================================
--- pkg/R/informationCriterion.R	2008-12-30 06:44:58 UTC (rev 118)
+++ pkg/R/informationCriterion.R	2008-12-30 06:45:12 UTC (rev 119)
@@ -30,7 +30,7 @@
     temp <- hansenBatch$hansens[[i]]
     outdata[[i]] <- informationCriterion(lnL = temp[, 'loglik'], K = temp[, 'dof'], n = N, names = row.names(temp))
     }
-  outdata
+  return(outdata)
 }
 
 print.informationCriterion <- function(ic) {
@@ -38,4 +38,5 @@
   out <- matrix(NA, nrow = length(ic$names), ncol = length(items), dimnames = list(ic$names, items))
   for(i in items) out[, i] <- ic[[i]]
   print(out) 
+  return(NULL)
 }
\ No newline at end of file