[Pomp-commits] r1091 - in pkg/pomp: . R

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

Author: kingaa
Date: 2015-02-22 23:49:40 +0100 (Sun, 22 Feb 2015)
New Revision: 1091

Modified:
   pkg/pomp/NAMESPACE
   pkg/pomp/R/probe.R
Log:
- add new S3 method: 'as.data.frame' for 'probed.pomp' objects

Modified: pkg/pomp/NAMESPACE
===================================================================
--- pkg/pomp/NAMESPACE	2015-02-22 22:49:30 UTC (rev 1090)
+++ pkg/pomp/NAMESPACE	2015-02-22 22:49:40 UTC (rev 1091)
@@ -75,6 +75,7 @@
 
 S3method(as.data.frame,pomp)
 S3method(as.data.frame,pfilterd.pomp)
+S3method(as.data.frame,probed.pomp)
 
 export(
        Csnippet,

Modified: pkg/pomp/R/probe.R
===================================================================
--- pkg/pomp/R/probe.R	2015-02-22 22:49:30 UTC (rev 1090)
+++ pkg/pomp/R/probe.R	2015-02-22 22:49:40 UTC (rev 1091)
@@ -206,6 +206,8 @@
       }
       )
 
+as.data.frame.probed.pomp <- function (x, row.names, optional, ...) as(x,"data.frame")
+
 setMethod("logLik",signature(object="probed.pomp"),function(object,...)object at synth.loglik)
 setMethod("$",signature=signature(x="probed.pomp"),function(x, name)slot(x,name))