[Pomp-commits] r1036 - pkg/pompExamples/src

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Dec 24 21:15:54 CET 2014


Author: kingaa
Date: 2014-12-24 21:15:53 +0100 (Wed, 24 Dec 2014)
New Revision: 1036

Modified:
   pkg/pompExamples/src/budmoth.c
   pkg/pompExamples/src/parus.c
Log:
- change included files in these examples

Modified: pkg/pompExamples/src/budmoth.c
===================================================================
--- pkg/pompExamples/src/budmoth.c	2014-12-24 18:26:52 UTC (rev 1035)
+++ pkg/pompExamples/src/budmoth.c	2014-12-24 20:15:53 UTC (rev 1036)
@@ -3,15 +3,8 @@
 #include <R.h>
 #include <Rmath.h>
 #include <Rdefines.h>
+#include <pomp.h>
 
-static inline double expit (double x) {
-  return 1.0/(1.0 + exp(-x));
-}
-
-static inline double logit (double x) {
-  return log(x/(1-x));
-}
-
 #define ALPHA      (p[parindex[0]])
 #define SIGALPHA   (p[parindex[1]])
 #define GAM        (p[parindex[2]])

Modified: pkg/pompExamples/src/parus.c
===================================================================
--- pkg/pompExamples/src/parus.c	2014-12-24 18:26:52 UTC (rev 1035)
+++ pkg/pompExamples/src/parus.c	2014-12-24 20:15:53 UTC (rev 1036)
@@ -1,9 +1,8 @@
 // dear emacs, please treat this as -*- C++ -*-
 
 #include <Rmath.h>
+#include <pomp.h>
 
-#include "pomp.h"
-
 #define R       (p[parindex[0]]) // growth rate
 #define K       (p[parindex[1]]) // carrying capacity
 #define SIGMA   (p[parindex[2]]) // process noise level



More information about the pomp-commits mailing list