if(!exists("meta") || is.null(meta)) meta <- packageDescription("NormqPCR")

year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", meta$Date, perl = TRUE)
note <- sprintf("R package version %s", meta$Version)

citHeader("To cite package NormqPCR in publications use:")

citEntry(entry="Manual",
         title = "NormqPCR: Functions for normalisation of RT-qPCR data",
         author = personList(as.person("M. Kohl"), as.person("J. Perkins")),
         language = "English",
         year = year,
         note = note,
         type = "R package",
         url = "www.bioconductor.org/packages/release/bioc/html/NormqPCR.html",
         textVersion = paste("Kohl, M. and Perkins, J.",
                             sprintf("(%s).", year),
                             "NormqPCR: Functions for normalisation of RT-qPCR data.",
                             paste(note, ".", sep = "")))
