[Depmix-commits] r63 - trunk

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

Author: ingmarvisser
Date: 2008-03-07 14:11:54 +0100 (Fri, 07 Mar 2008)
New Revision: 63

Modified:
   trunk/llratio.R
Log:
llratio now gives positive ratio ...

Modified: trunk/llratio.R
===================================================================
--- trunk/llratio.R	2008-03-07 12:56:05 UTC (rev 62)
+++ trunk/llratio.R	2008-03-07 13:11:54 UTC (rev 63)
@@ -9,7 +9,7 @@
 llratio <- function(basemodel,constrainedmodel,...) {
 	llbase <- logLik(basemodel)
 	llcon <- logLik(constrainedmodel)
-	llr <- -2*(llcon-llbase)
+	llr <- -2*(llbase-llcon)
 	df <- attributes(llbase)$df-attributes(llcon)$df
 	return(new("llratio",value=as.numeric(llr),df=df))
 }