fix typo; drop "donttest" from example

Author: kingaa

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: pomp
 Type: Package
 Title: Statistical Inference for Partially Observed Markov Processes
-Version: 6.0.2.2
-Date: 2024-12-15
+Version: 6.0.2.3
+Date: 2024-12-18
 Authors@R: c(person(given=c("Aaron","A."),family="King",role=c("aut","cre"),email="kingaa@umich.edu",comment=c(ORCID="0000-0001-6159-3207")),
 	  person(given=c("Edward","L."),family="Ionides",role="aut",comment=c(ORCID="0000-0002-4190-0174"))	,
 	  person(given="Carles",family="Bretó",role="aut",comment=c(ORCID="0000-0003-4695-4902")),

R/userdata.R

@@ -1,4 +1,4 @@
-##' Facilities for making additional information to basic components
+##' Facilities for making additional information available to basic model components
 ##'
 ##' When \acronym{POMP} basic components need information they can't get from parameters or covariates.
 ##'

examples/kf.R

@@ -1,29 +1,26 @@
-\donttest{ # takes too long for R CMD check
+if (require(dplyr)) {
 
-  if (require(dplyr)) {
+  gompertz() -> po
 
-    gompertz() -> po
+  po |>
+    as.data.frame() |>
+    mutate(
+      logY=log(Y)
+    ) |>
+    select(time,logY) |>
+    pomp(times="time",t0=0) |>
+    kalmanFilter(
+      X0=c(logX=0),
+      A=matrix(exp(-0.1),1,1),
+      Q=matrix(0.01,1,1),
+      C=matrix(1,1,1),
+      R=matrix(0.01,1,1)
+    ) -> kf
 
-    po |>
-      as.data.frame() |>
-      mutate(
-        logY=log(Y)
-      ) |>
-      select(time,logY) |>
-      pomp(times="time",t0=0) |>
-      kalmanFilter(
-        X0=c(logX=0),
-        A=matrix(exp(-0.1),1,1),
-        Q=matrix(0.01,1,1),
-        C=matrix(1,1,1),
-        R=matrix(0.01,1,1)
-      ) -> kf
+  po |>
+    pfilter(Np=1000) -> pf
 
-    po |>
-      pfilter(Np=1000) -> pf
+  kf$logLik
+  logLik(pf) + sum(log(obs(pf)))
 
-    kf$logLik
-    logLik(pf) + sum(log(obs(pf)))
-    
-  }
 }