year <- sub("-.*", "", meta$Date)
note1 <- sprintf("R~package, version~%s", meta$Version)
note2 <- sprintf("(R package, version %s)", meta$Version)

citEntry(
         header=paste("To cite the",sQuote("pomp"),
         "package in publications, please use:"),
         entry="Article",
         title="Statistical Inference for Partially Observed {M}arkov Processes via the {R} Package {pomp}",
         author=personList(
 	   as.person("Aaron A. King"),
	   as.person("Dao Nguyen"),
	   as.person("Edward L. Ionides")
           ),
	 year=2015,
         journal="Journal of Statistical Software",
         volume="in press",
#	 number=XX,
#	 url="http://www.jstatsoft.org/vXX/iXX",
	 textVersion=paste0(
           "Aaron A. King, Dao Nguyen, Edward L. Ionides",
	   " (2015) ",
           "Statistical Inference for Partially Observed Markov Processes via the R Package pomp. ",
           "Journal of Statistical Software, in press. "
#	   "http://www.jstatsoft.org/vXX/iXX"
	  )	   
   )		 

citEntry(
         header="Additionally, please cite the package itself:",
         entry="Manual",
         title="{pomp}: {S}tatistical Inference for Partially Observed {M}arkov Processes",
         author=personList(
 	   as.person("Aaron A. King"),
	   as.person("Edward L. Ionides"),
	   as.person("Carles Martinez Bret\\'o"),
   	   as.person("Stephen P. Ellner"), 
	   as.person("Matthew J. Ferrari"),
	   as.person("Bruce E. Kendall"),
	   as.person("Michael Lavine"),
	   as.person("Dao Nguyen"),
	   as.person("Daniel C. Reuman"),
	   as.person("Helen Wearing"),
	   as.person("Simon N. Wood")
	   ),	   
	 year=year,
	 note=note1,
	 url=meta$URL,
	 textVersion=paste0(
           "A. A. King, E. L. Ionides, C. M. Breto, S. P. Ellner, M. J. Ferrari, B. E. Kendall, M. Lavine, D. Nguyen, D. C. Reuman, H. Wearing, and S. N. Wood"," (",year,") ",
	   "pomp: Statistical Inference for Partially Observed Markov Processes ",
	   note2,". ",meta$URL
	  )	   
   )		 

citFooter("To obtain these citations in BibTeX format, do ",
          sQuote("toBibtex(citation(\"pomp\"))"))
