[Depmix-commits] r578 - in pkg/depmixS4: R man

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

Author: ingmarvisser
Date: 2013-01-29 16:42:26 +0100 (Tue, 29 Jan 2013)
New Revision: 578

Modified:
   pkg/depmixS4/R/depmix-class.R
   pkg/depmixS4/man/speed.Rd
Log:
minor stuff

Modified: pkg/depmixS4/R/depmix-class.R
===================================================================
--- pkg/depmixS4/R/depmix-class.R	2013-01-29 14:11:02 UTC (rev 577)
+++ pkg/depmixS4/R/depmix-class.R	2013-01-29 15:42:26 UTC (rev 578)
@@ -97,7 +97,7 @@
 		}
 		
 		# generate new mix.sim object
-		class(object) <- c("mix.sim")
+		object <- as(object,"mix.sim")
 		object at states <- as.matrix(states)
 		
 		object at prior@x <- as.matrix(apply(object at prior@x,2,rep,nsim))
@@ -310,7 +310,7 @@
 		}
 		
 		# generate new depmix.sim object
-		class(object) <- c("depmix.sim")
+		object <- as(object,"depmix.sim") 
 		object at states <- as.matrix(states)
 		
 		object at prior@x <- as.matrix(apply(object at prior@x,2,rep,nsim))

Modified: pkg/depmixS4/man/speed.Rd
===================================================================
--- pkg/depmixS4/man/speed.Rd	2013-01-29 14:11:02 UTC (rev 577)
+++ pkg/depmixS4/man/speed.Rd	2013-01-29 15:42:26 UTC (rev 578)
@@ -24,11 +24,13 @@
 \usage{data(speed)}
 
 \format{
-  A data frame with 439 observations on the following 3 variables.
+  A data frame with 439 observations on the following 4 variables.
   \describe{
 	\item{\code{rt}}{a numeric vector of response times (log ms)}
 	\item{\code{corr}}{a numeric vector of accuracy scores (0/1)}
 	\item{\code{Pacc}}{a numeric vector of the pay-off for accuracy}
+	\item{\code{prev}}{a numeric vector of accuracy scores (0/1) 
+				on the previous trial}
   }
 }