[Depmix-commits] r152 - trunk/tests

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

Author: ingmarvisser
Date: 2008-06-10 17:22:18 +0200 (Tue, 10 Jun 2008)
New Revision: 152

Modified:
   trunk/tests/depmixNew-test2.R
Log:
More minor changes

Modified: trunk/tests/depmixNew-test2.R
===================================================================
--- trunk/tests/depmixNew-test2.R	2008-06-10 15:14:02 UTC (rev 151)
+++ trunk/tests/depmixNew-test2.R	2008-06-10 15:22:18 UTC (rev 152)
@@ -38,15 +38,15 @@
 # values of the previously fitted model to speed optimization
 
 pars <- c(unlist(getpars(mod1)))
-
+ 
 # set some to other values, ie the ones that we want to constrain
 
-pars[2]=+Inf
-pars[14]=0
+pars[2]=+Inf pars[14]=0
 
-mod <- setpars(mod,pars)
+mod <- setpars(mod,pars) 
 
-# fix some parameters
+# fix some parameter
+
 free <- c(0,0,rep(c(0,1),4),1,1,0,0,1,1,0,1)
 
 mod2 <- fit(mod,fixed=!free)
@@ -55,10 +55,9 @@
 
 cat("Test 2: likelihood ratio not significant, hence mod2 better than mod1.\n")
 
-# 
 # NOW ADD SOME GENERAL LINEAR CONSTRAINTS
-# 
 
+
 # set the starting values of this model to the optimized 
 # values of the previously fitted model to speed optimization