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

desc <- packageDescription("fastseg")
year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", desc$Date)
vers <- paste("R package version", desc$Version)
url  <- desc$URL

citEntry(entry="Article",
         title="fastseg: a fast segmentation algorithm",
         author=personList(as.person("Guenter Klambauer"),
                           as.person("Andreas Mitterecker"),
                           as.person("Djork-Arne Clevert"),
                           as.person("Sepp Hochreiter") 
                           ),
         year=year,
         note=vers,
         journal="Unpublished",
         organization=paste("Institute of Bioinformatics",
                            "Johannes Kepler University", sep=", "),
         address="Linz, Austria",
         url=url,
         textVersion =
             paste("Guenter Klambauer, Andreas Mitterecker, Djork-Arne Clevert, Sepp Hochreiter (",
                   year, 
                   "). An R package for fast segmentation ",
                   "fastseg. ", 
                   vers,
                   ". Institute of Bioinformatics, ",
                   "Johannes Kepler University, Linz, Austria.",
                   sep=""))
                   
citFooter("To obtain the references in BibTex format, enter",
          "'toBibtex(citation(\"fastseg\"))'")
