citHeader("To cite package 'mclust' in publications use:")

# old
# desc <- packageDescription("mclust")
# year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", desc$Date)
# vers <- paste("R package version", desc$Version)
# new
year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", meta$Date)
vers <- paste("R package version", meta$Version)

citEntry(entry="Manual",
         title = "mclust Version 4 for R: Normal Mixture Modeling for
                  Model-Based Clustering, Classification, 
                  and Density Estimation",
         author = personList(person(given="Chris", family="Fraley"),
                             person(given=c("Adrian", "E."), family="Raftery"),
                             person(given=c("Thomas", "Brendan"), family="Murphy"),
                             person(given="Luca", family="Scrucca")),
         year = "2012",
         # note = "(revised in 2012)",
         type = "Technical Report",
         number  = "597",
         institution = "Department of Statistics, 
                        University of Washington",
         textVersion =
         paste("Chris Fraley, Adrian E. Raftery, T. Brendan Murphy, and Luca Scrucca (2012)",
"mclust Version 4 for R: Normal Mixture Modeling for Model-Based Clustering, Classification, and Density Estimation",
"Technical Report No. 597, Department of Statistics, University of Washington"))


citEntry(entry="Article",
         title = "Model-based Clustering, Discriminant Analysis and
                  Density Estimation",
         author = personList(person(given="Chris", family="Fraley"),
                             person(given=c("Adrian", "E."), family="Raftery")),
         year = "2002",
         journal = "Journal of the American Statistical Association",     
         volume = 97,
         pages = "611-631",
         textVersion =
         paste("Chris Fraley and Adrian E. Raftery (2002)",
         "Model-based Clustering, Discriminant Analysis and Density Estimation",
         "Journal of the American Statistical Association", 
         "97:611-631"))
