Edits to --run-donttest examples

Author: jeswheel

examples/traj_match.R

@@ -4,7 +4,7 @@
     traj_objfun(
       est=c("r","sigma","N_0"),
       partrans=parameter_trans(log=c("r","sigma","N_0")),
-      paramnames=c("r","sigma","N_0"),
+      paramnames=c("r","sigma","N_0")
       ) -> f
 
   f(log(c(20,0.3,10)))

examples/userdata.R

@@ -6,7 +6,7 @@
   ## C snippet approach:
 
   simulate(times=1:100,t0=0,
-    phi=as.double(100),
+    userdata=list(phi=as.double(100)),
     params=c(r=3.8,sigma=0.3,N.0=7),
     rprocess=discrete_time(
       step.fun=Csnippet(r"{
@@ -46,7 +46,7 @@
   ## Finally, the R function approach:
 
   simulate(times=1:100,t0=0,
-    phi=100,
+    userdata=list(phi=100),
     params=c(r=3.8,sigma=0.3,N_0=7),
     rprocess=discrete_time(
       step.fun=function (r, N, sigma, ...) {