[Depmix-commits] r626 - pkg/depmix/man

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

Author: ingmarvisser
Date: 2014-04-02 09:38:17 +0200 (Wed, 02 Apr 2014)
New Revision: 626

Modified:
   pkg/depmix/man/fitdmm.Rd
Log:
Reduced runtime of examples in fitdmm to comply with CRAN policy

Modified: pkg/depmix/man/fitdmm.Rd
===================================================================
--- pkg/depmix/man/fitdmm.Rd	2014-04-01 11:37:23 UTC (rev 625)
+++ pkg/depmix/man/fitdmm.Rd	2014-04-02 07:38:17 UTC (rev 626)
@@ -229,9 +229,14 @@
 fit1 <- fitdmm(dat=speed,dmm=mod)
 summary(fit1)
 ll <- loglike(speed,fit1)
+
+# bootstrap
+\dontrun{
 pst <- posterior(dat=speed,dmm=fit1)
-bs <- bootstrap(fit1,speed,samples=10)
+bs <- bootstrap(fit1,speed,samples=50)
+} # end not run
 
+
 # add some constraints using conpat
 conpat=rep(1,15)
 conpat[1]=0
@@ -245,8 +250,12 @@
 fit2 <- fitdmm(dat=speed,dmm=mod)
 summary(fit2)
 
+
 # add covariates to the model to incorporate the fact the accuracy pay off changes per trial
 # 2-state model with covariates + other constraints
+
+\dontrun{
+
 conpat=rep(1,15)
 conpat[1]=0
 conpat[8:9]=0
@@ -286,9 +295,12 @@
 fitmg <- fitdmm(dat=list(r1,r2,r3),dmm=mgr)
 summary(fitmg)
 
+} # end not run
 
 # LEARNING DATA AND MODELS (with absorbing states)
 
+\dontrun{
+
 data(discrimination)
 
 # all or none model with error prob in the learned state
@@ -322,6 +334,8 @@
 fitmix <- fitdmm(discrimination,mix)
 summary(fitmix)
 
+} # end not run
+
 }
 
 \keyword{models}