citation <- function(package = "yourPackage") {
  bibentry(
    bibtype = "Article",
    title = "Surface Melting Curve Analysis with R",
    author = c(person("Stefan", "Roediger"), person("Alexander", "Boehm"), person("Ingolf", "Schimke")),
    journal = "The R Journal",
    year = 2013,
    volume = 5,
    pages = "37-53"
  )
}