if(!exists("meta") || is.null(meta)) meta <- packageDescription("luca")
citHeader("To cite luca in publications use:")

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

citEntry(entry="Article",
         title = "Case-Control Inference of Interaction Between Genetic and Nongenetic 
                  Risk Factors Under Assumptions on Their Distribution.",
         author = personList(as.person("J.-H. Shin"),
                             as.person("B. McNeney"),
                             as.person("J. Graham")),
         journal = "Statistical Applications in Genetics and Molecular Biology",
         volume      = "6(1)",
         year        = "2007",
         pages       = "Article 13",
         textVersion =
       paste("Shin J-H, McNeney B and Graham J (2007).",                 
     "Case-Control Inference of Interaction Between Genetic and",
     "Nongenetic Risk Factors Under Assumptions on Their Distribution.",    
     "Statistical Applications in Genetics and Molecular Biology, 6(1): Article 13.",
     "Available at: http://www.bepress.com/sagmb/vol6/iss1/art13")
)


