[Rcpp-commits] r3533 - pkg/RcppSMC/R

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

Author: edd
Date: 2012-03-20 01:39:14 +0100 (Tue, 20 Mar 2012)
New Revision: 3533

Modified:
   pkg/RcppSMC/R/simGaussian.R
   pkg/RcppSMC/R/simLineart.R
   pkg/RcppSMC/R/simNonlin.R
Log:
we're returning a list() object so let's start with one too


Modified: pkg/RcppSMC/R/simGaussian.R
===================================================================
--- pkg/RcppSMC/R/simGaussian.R	2012-03-20 00:30:13 UTC (rev 3532)
+++ pkg/RcppSMC/R/simGaussian.R	2012-03-20 00:39:14 UTC (rev 3533)
@@ -1,6 +1,6 @@
 simGaussian <- function(len = 250)
 {
-  sim <- c()
+  sim <- list()
   sim$state <- cumsum(rnorm(len))
   sim$data  <- sim$state + rnorm(len)
 

Modified: pkg/RcppSMC/R/simLineart.R
===================================================================
--- pkg/RcppSMC/R/simLineart.R	2012-03-20 00:30:13 UTC (rev 3532)
+++ pkg/RcppSMC/R/simLineart.R	2012-03-20 00:39:14 UTC (rev 3533)
@@ -1,6 +1,6 @@
 simLineart <- function(len = 250)
 {
-  sim <- c()
+  sim <- list()
 
   statex <- cumsum(rnorm(len))
   statey <- cumsum(rnorm(len))

Modified: pkg/RcppSMC/R/simNonlin.R
===================================================================
--- pkg/RcppSMC/R/simNonlin.R	2012-03-20 00:30:13 UTC (rev 3532)
+++ pkg/RcppSMC/R/simNonlin.R	2012-03-20 00:39:14 UTC (rev 3533)
@@ -1,6 +1,6 @@
 simNonlin <- function(len = 50)
 {
-   sim <- c()
+   sim <- list()
 
    innovations <- rnorm(len) * sqrt(10)
    sim$state[1] <- innovations[1]