[Depmix-commits] r429 - papers/jss

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

Author: ingmarvisser
Date: 2010-07-02 14:58:07 +0200 (Fri, 02 Jul 2010)
New Revision: 429

Modified:
   papers/jss/dpx4Rev.Rnw
Log:
updates to formating ...

Modified: papers/jss/dpx4Rev.Rnw
===================================================================
--- papers/jss/dpx4Rev.Rnw	2010-07-01 20:47:29 UTC (rev 428)
+++ papers/jss/dpx4Rev.Rnw	2010-07-02 12:58:07 UTC (rev 429)
@@ -101,7 +101,7 @@
 
 <<echo=FALSE,results=hide>>=	
 options(prompt="R> ", continue="+	",width=70, useFancyQuotes=FALSE,
-digits=3)
+digits=4)
 library(depmixS4)
 @
 
@@ -958,6 +958,9 @@
 
 
 The \code{fit} method is defined as follows: 
+<<echo=FALSE>>=
+options(width=60)
+@
 <<>>=
 setMethod("fit","exgaus",
   function(object, w) {
@@ -966,9 +969,9 @@
     
 	fit <- gamlss(y~1,weights=w,family=exGAUS(),
       control=gamlss.control(n.cyc=100,trace=FALSE),
-      mu.start=object at parameters$mu, sigma.start=exp(object at parameters$sigma), 
-      nu.start=exp(object at parameters$nu)
-	)
+      mu.start=object at parameters$mu, 
+	  sigma.start=exp(object at parameters$sigma), 
+      nu.start=exp(object at parameters$nu))
     
 	pars <- c(fit$mu.coefficients, fit$sigma.coefficients, 
 		fit$nu.coefficients)
@@ -989,6 +992,9 @@
 full control over model specification, and we need it here. 
 
 We first create all the response models that we need as a double list: 
+<<echo=FALSE>>=
+options(width=80)
+@
 <<>>=
 rModels <- list()
 rModels[[1]] <- list()
@@ -1005,6 +1011,9 @@
 Next, we define the transition and prior probability models using the 
 \code{transInit} function (which produces a transInit model, which also extends 
 the response class): 
+<<echo=FALSE>>=
+options(width=70)
+@
 <<>>=
 trstart=c(0.9,0.1,0.1,0.9)
 transition <- list()