[Pomp-commits] r539 - in pkg: man src

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

Author: kingaa
Date: 2011-08-17 17:04:20 +0200 (Wed, 17 Aug 2011)
New Revision: 539

Modified:
   pkg/man/pomp-methods.Rd
   pkg/src/dprocess.c
Log:

- remove unused variable in 'dprocess.c'
- use \S3method markup in documentation of 'as.data.frame.pomp'


Modified: pkg/man/pomp-methods.Rd
===================================================================
--- pkg/man/pomp-methods.Rd	2011-08-17 14:20:58 UTC (rev 538)
+++ pkg/man/pomp-methods.Rd	2011-08-17 15:04:20 UTC (rev 539)
@@ -52,7 +52,7 @@
 \S4method{window}{pomp}(x, start, end, \dots)
 \S4method{show}{pomp}(object)
 \S4method{as}{pomp}(object, class)
-as.data.frame.pomp(x, row.names, optional, \dots)
+\S3method{as.data.frame}{pomp}(x, row.names, optional, \dots)
 \S4method{coerce}{pomp,data.frame}(from, to = "data.frame", strict = TRUE)
 \S4method{print}{pomp}(x, \dots)
 \S4method{plot}{pomp}(x, y, variables, panel = lines,

Modified: pkg/src/dprocess.c
===================================================================
--- pkg/src/dprocess.c	2011-08-17 14:20:58 UTC (rev 538)
+++ pkg/src/dprocess.c	2011-08-17 15:04:20 UTC (rev 539)
@@ -8,7 +8,7 @@
 SEXP do_dprocess (SEXP object, SEXP x, SEXP times, SEXP params, SEXP log)
 {
   int nprotect = 0;
-  int *xdim, nvars, nreps, ntimes;
+  int *xdim, nreps, ntimes;
   SEXP X, fn, fcall, rho;
   SEXP dimP, dimX, dimF;
   ntimes = length(times);
@@ -27,7 +27,7 @@
     error("dprocess error: 'params' must be a rank-2 array");
   }
   xdim = INTEGER(dimX);
-  nvars = xdim[0]; nreps = xdim[1];
+  nreps = xdim[1];
   if (nreps != INTEGER(dimP)[1]) {
     UNPROTECT(nprotect);
     error("dprocess error: number of columns of 'params' and 'x' do not agree");