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

citHeader("To cite iNextPD in publications use:")

citEntry(
		 entry = 'manual',
		 title = paste('iNextPD:', meta$Title),
		 author = personList(as.person("T. C. Hsieh"),
    	                   as.person("Anne Chao")), 
		 year = year,
		 note = note,
		 url = "http://chao.stat.nthu.edu.tw/blog/software-download/",
		 textVersion = paste("Hsieh, T. C.  and Chao, A. (2016). iNextPD: Interpolation and Extrapolation for Phylogenetic Diversity.", note, "URL: http://chao.stat.nthu.edu.tw/blog/software-download")
)

citEntry(
		 entry = 'Article',
		 title = 'Rarefaction and extrapolation: making fair comparison of abundance-sensitive phylogenetic diversity among multiple assemblages',,
         author = personList(as.person("T. C. Hsieh"),
                             as.person("Anne Chao")),
		 journal = 'Systematic Biology',
		 year = '2017',
		 doi = '10.1093/sysbio/syw073',
  textVersion = paste('Hsieh, T.C. and Chao, A. (2017). Rarefaction and extrapolation: making fair comparison of abundance-sensitive phylogenetic diversity among multiple assemblages. Systematic Biology 66 (1): 100-111.')
)