#citHeader("To cite PTAk in publications use preferably the JSS article and the current version:")

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

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


bibentry("Article",
	title = "\\textup{ A Singular Value Decomposition of  \\textit{k}-Way Array for
       a Principal Component Analysis of Multiway Data, \\textsc{PTA}-\\textit{k}}",
        author = c(as.person("D. Leibovici"),as.person("R. Sabatier")),
	journal = "Linear Algebra and Its Applications",
  	 year = "1998",
  volume  = "269",
   pages  ="307-329",        
   textVersion = 
        paste("Leibovici, D. and Sabatier, R.",
	       "(1998)", 
               " A Singular Value Decomposition of  k-Way Array for 
               a Principal Component Analysis of Multiway Data, PTA-k. ",
               "Linear Algebra and its Applications, 269:307-329 ",
               sep=""),
header="To cite PTAk in publications use preferably the JSS article and the current version:"
         )
 
 
 bibentry("Manual",
    title = "\\textup{PTAk}: \\textup{Principal Tensor Analysis on k modes}",
    author = as.person("Leibovici D.G."),
    year = year,
    edition = vers,
    url = "https://CRAN.R-project.org/package=PTAk",
       textVersion=
        paste("Leibovici D.G. ",
	             "(",year,")" ,
               " PTAk: Principal Tensor Analysis on k modes, ",
               vers,
               ".  https://CRAN.R-project.org/package=PTAk",
               sep="")
         )
         
bibentry("Article",
	title = "\\textup{ Spatio-Temporal Multiway Decompositions using Principal Tensor Analysis on k-modes: the  \\textsc{R}-package \\textsc{PTAk}}",
        author =as.person("Didier G. Leibovici"),
	journal = "Journal of Statistical Software",
  	year = "2010",
	volume       = "34",
  number       = "10",
  pages        = "1--34",
  doi          = "10.18637/jss.v034.i10",

  textVersion  =
  paste("Didier G. Leibovici (2010).",
        " Spatio-Temporal Multiway Decompositions Using Principal Tensor Analysis on k-Modes: The R Package PTAk.",
        "Journal of Statistical Software, 34(10), 1-34.",
        "doi:10.18637/jss.v034.i10"),
        footer="visit also https://www.GeotRYcs.com,  http://didier.leibovici.free.fr")
         
#citFooter("visit also https://www.GeotRYcs.com,  http://didier.leibovici.free.fr")
