citHeader("To cite in publications use:")

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

citEntry(entry = "Manual",
         title = "arules: Mining Association Rules and Frequent Itemsets",
         author = {
             personList(person(first = "Michael", last = "Hahsler",
                               email = "hahsler@ai.wu-wien.ac.at"),
                        person(first = "Christian", last = "Buchta",
                               email = "Christian.Buchta@wu-wien.ac.at"),
                        person(first = "Bettina", last = "Gruen",
                               email = "gruen@ci.tuwien.ac.at"),
                        person(first = "Kurt", last = "Hornik",
                               email = "Kurt.Hornik@R-project.org"))
         },
         year = year,
         note = note,
         url = "http://CRAN.R-project.org/",
         textVersion = {
             paste("Michael Hahsler, Bettina Gruen and Kurt Hornik",
                   sprintf("(%s).", year),                         
                   "arules: Mining Association Rules and Frequent Itemsets.",
                   note,
                   sep = "  ")
         })

citEntry(entry = "article",
         title = paste("arules -- {A} Computational Environment for Mining",
                       "Association Rules and Frequent Item Sets"),
         author = {
             personList(person(first = "Michael", last = "Hahsler",
                               email = "hahsler@ai.wu-wien.ac.at"),
                        person(first = "Bettina", last = "Gruen",
                               email = "gruen@ci.tuwien.ac.at"),
                        person(first = "Kurt", last = "Hornik",
                               email = "Kurt.Hornik@R-project.org"))
         },
         year = 2005,
         journal = "Journal of Statistical Software",
         volume = 14,
         number = 15,
         pages = "1--25",
         url = "http://www.jstatsoft.org/v14/i15/",
         month = "October",
         issn = "1548-7660",
         textVersion = {
             paste(paste("Michael Hahsler, Bettina Gruen and",
                         "Kurt Hornik (2005),",
                         "arules -- A Computational Environment for",
                         "Mining Association Rules and Frequent Item Sets."),
                   "Journal of Statistical Software 14/15.",
                   "URL: http://www.jstatsoft.org/v14/i15/.",
                   sep = "  ")
         })
