citHeader("When using pwt8 in publications, please cite both the pwt8 package and the Penn World Table itself:")

if(!exists("meta") || is.null(meta)) meta <- packageDescription("pwt8")
year <- sub("-.*", "", meta$Date)
note <- sprintf("R package version %s", meta$Version)

citEntry(entry = "Manual",
         title = "pwt8: Penn World Table (Version 8.0)",
         author = personList(as.person("Achim Zeileis")),
         year         = year,
         note         = note,
	 url          = "http://CRAN.R-project.org/package=pwt8",

         textVersion = 
         paste("Achim Zeileis",
               sprintf("(%s).", year),
               "pwt8: Penn World Table (Version 8.0).",
	       paste(note, ".", sep = ""),
	       "URL http://CRAN.R-project.org/package=pwt8."),
	 header = "To cite pwt8, the R package, please use:"
)

citEntry(entry = "Manual",
         title = "The Next Generation of the Penn World Table",
         author = personList(as.person("Robert C. Feenstra"),
	                     as.person("Robert Inklaar"), 
	                     as.person("Marcel P. Timmer")),
         year         = "2013",
	 month        = "July",
	 organization = "Groningen Growth and Development Centre",
         url          = "http://www.ggdc.net/pwt/",
         
         textVersion = 
         paste("Robert C. Feenstra, Robert Inklaar, Marcel P. Timmer (2013).", 
               "The Next Generation of the Penn World Table.",
               "Groningen Growth and Development Centre.",
               "URL http://www.ggdc.net/pwt/."),
	 header = "To cite the Penn World Table (version 8.0), please use:"
)
