[Depmix-commits] r593 - pkg/depmixS4/man

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

Author: ingmarvisser
Date: 2013-09-17 09:41:15 +0200 (Tue, 17 Sep 2013)
New Revision: 593

Modified:
   pkg/depmixS4/man/makeDepmix.Rd
Log:
fixed lines that were too loooonggg (wider than 100 characters)

Modified: pkg/depmixS4/man/makeDepmix.Rd
===================================================================
--- pkg/depmixS4/man/makeDepmix.Rd	2013-09-17 07:29:14 UTC (rev 592)
+++ pkg/depmixS4/man/makeDepmix.Rd	2013-09-17 07:41:15 UTC (rev 593)
@@ -213,10 +213,10 @@
 )
 
 setMethod("dens","exgaus",
-    function(object,log=FALSE) {
-        dexGAUS(object at y, mu = predict(object), 
-				sigma = exp(object at parameters$sigma), nu = exp(object at parameters$nu), log = log)
-    }
+ function(object,log=FALSE) {
+   dexGAUS(object at y, mu = predict(object), 
+		sigma = exp(object at parameters$sigma), nu = exp(object at parameters$nu), log = log)
+  }
 )
 
 setMethod("getpars","response",
@@ -279,14 +279,14 @@
 )
 
 rModels <- list(
-		list(
-				exgaus(rt,pstart=c(5,.1,.1)),
-				GLMresponse(formula=corr~1,data=speed,family=multinomial(),pstart=c(0.5,0.5))
-		),
-		list(
-				exgaus(rt,pstart=c(6,.1,.1)),
-				GLMresponse(formula=corr~1,data=speed,family=multinomial(),pstart=c(.1,.9))
-		)
+  list(
+	  exgaus(rt,pstart=c(5,.1,.1)),
+		GLMresponse(formula=corr~1, data=speed, family=multinomial(), pstart=c(0.5,0.5))
+	),
+	list(
+		exgaus(rt,pstart=c(6,.1,.1)),
+		GLMresponse(formula=corr~1, data=speed, family=multinomial(), pstart=c(.1,.9))
+	)
 )
 
 trstart=c(0.9,0.1,0.1,0.9)