[Pomp-commits] r938 - www/vignettes

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

Author: kingaa
Date: 2014-04-24 17:08:55 +0200 (Thu, 24 Apr 2014)
New Revision: 938

Modified:
   www/vignettes/advanced_topics_in_pomp.Rnw
   www/vignettes/advanced_topics_in_pomp.pdf
   www/vignettes/gompertz-performance.rda
   www/vignettes/intro_to_pomp.R
   www/vignettes/intro_to_pomp.Rnw
   www/vignettes/intro_to_pomp.pdf
   www/vignettes/pomp.pdf
Log:
- fix some small errors


Modified: www/vignettes/advanced_topics_in_pomp.Rnw
===================================================================
--- www/vignettes/advanced_topics_in_pomp.Rnw	2014-04-23 22:24:34 UTC (rev 937)
+++ www/vignettes/advanced_topics_in_pomp.Rnw	2014-04-24 15:08:55 UTC (rev 938)
@@ -1,8 +1,9 @@
-\documentclass[10pt,reqno,final]{amsart}
+\documentclass[10pt,reqno,final,pdftex]{amsart}
 %\VignetteIndexEntry{Advanced topics in pomp}
 %\VignetteEngine{knitr::knitr}
 \usepackage{times}
 \usepackage[utf8]{inputenc}
+\usepackage{graphicx}
 \usepackage[round]{natbib}
 \usepackage{paralist}
 \usepackage{float}

Modified: www/vignettes/advanced_topics_in_pomp.pdf
===================================================================
(Binary files differ)

Modified: www/vignettes/gompertz-performance.rda
===================================================================
(Binary files differ)

Modified: www/vignettes/intro_to_pomp.R
===================================================================
--- www/vignettes/intro_to_pomp.R	2014-04-23 22:24:34 UTC (rev 937)
+++ www/vignettes/intro_to_pomp.R	2014-04-24 15:08:55 UTC (rev 938)
@@ -315,7 +315,7 @@
 ## toc <- Sys.time()
 ## g2sim <- toc-tic
 ## 
-## all.equal(sim1,sim2)
+## stopifnot(all.equal(sim1,sim2))
 ## 
 ## tic <- Sys.time()
 ## pf1 <- pfilter(gompertz,Np=10000,seed=5676868L)
@@ -327,11 +327,11 @@
 ## toc <- Sys.time()
 ## g2pf <- toc-tic
 ## 
-## all.equal(logLik(pf1),logLik(pf2))
+## stopifnot(all.equal(logLik(pf1),logLik(pf2)))
 ## 
 
 
-## ----gompertz-perform-eval,eval=T,echo=F,results='hide'------------------
+## ----gompertz-perform-eval,eval=T,echo=F---------------------------------
 binary.file <- "gompertz-performance.rda"
 if (file.exists(binary.file)) {
   load(binary.file)
@@ -348,7 +348,7 @@
 toc <- Sys.time()
 g2sim <- toc-tic
 
-all.equal(sim1,sim2)
+stopifnot(all.equal(sim1,sim2))
 
 tic <- Sys.time()
 pf1 <- pfilter(gompertz,Np=10000,seed=5676868L)
@@ -360,7 +360,7 @@
 toc <- Sys.time()
 g2pf <- toc-tic
 
-all.equal(logLik(pf1),logLik(pf2))
+stopifnot(all.equal(logLik(pf1),logLik(pf2)))
 
 save(g1sim,g2sim,g1pf,g2pf,file=binary.file,compress='xz')
 }  

Modified: www/vignettes/intro_to_pomp.Rnw
===================================================================
--- www/vignettes/intro_to_pomp.Rnw	2014-04-23 22:24:34 UTC (rev 937)
+++ www/vignettes/intro_to_pomp.Rnw	2014-04-24 15:08:55 UTC (rev 938)
@@ -1,8 +1,9 @@
-\documentclass[10pt,reqno,final]{amsart}
+\documentclass[10pt,reqno,final,pdftex]{amsart}
 %\VignetteIndexEntry{Introduction to pomp}
 %\VignetteEngine{knitr::knitr}
 \usepackage{times}
 \usepackage[utf8]{inputenc}
+\usepackage{graphicx}
 \usepackage[round]{natbib}
 \usepackage{paralist}
 \usepackage{float}
@@ -598,7 +599,7 @@
 toc <- Sys.time()
 g2sim <- toc-tic
 
-all.equal(sim1,sim2)
+stopifnot(all.equal(sim1,sim2))
 
 tic <- Sys.time()
 pf1 <- pfilter(gompertz,Np=10000,seed=5676868L)
@@ -610,10 +611,10 @@
 toc <- Sys.time()
 g2pf <- toc-tic
 
-all.equal(logLik(pf1),logLik(pf2))
+stopifnot(all.equal(logLik(pf1),logLik(pf2)))
 
 @ 
-<<gompertz-perform-eval,eval=T,echo=F,results='hide'>>=
+<<gompertz-perform-eval,eval=T,echo=F>>=
 binary.file <- "gompertz-performance.rda"
 if (file.exists(binary.file)) {
   load(binary.file)

Modified: www/vignettes/intro_to_pomp.pdf
===================================================================
(Binary files differ)

Modified: www/vignettes/pomp.pdf
===================================================================
(Binary files differ)