[Pomp-commits] r180 - pkg/tests

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

Author: kingaa
Date: 2009-12-09 14:04:54 +0100 (Wed, 09 Dec 2009)
New Revision: 180

Modified:
   pkg/tests/ou2-mif.Rout.save
Log:
- correct test results


Modified: pkg/tests/ou2-mif.Rout.save
===================================================================
--- pkg/tests/ou2-mif.Rout.save	2009-12-09 12:16:05 UTC (rev 179)
+++ pkg/tests/ou2-mif.Rout.save	2009-12-09 13:04:54 UTC (rev 180)
@@ -210,3 +210,23 @@
 Warning message:
 mif warning: the variable(s) x2.0 have positive random-walk SDs specified, but are included in neither 'pars' nor 'ivps'. These random walk SDs are ignored. 
 > 
+> pp <- particles(fit,Np=10,center=coef(fit),sd=abs(0.1*coef(fit)))
+> fit <- mif(
++            fit,
++            Nmif=10,
++            Np=1000,
++            particles=function(Np,center,sd,...){
++              matrix(
++                     data=runif(
++                       n=Np*length(center),
++                       min=center-sd,
++                       max=center+sd
++                       ),
++                     nrow=length(center),
++                     ncol=Np,
++                     dimnames=list(names(center),NULL)
++                     )
++            }
++            )
+> pp <- particles(fit,Np=10,center=coef(fit),sd=abs(0.1*coef(fit)))
+>