year <- sub(".*(2[[:digit:]]{3})-.*", "\\1", meta$Date, perl = TRUE)
vers <- paste("R package version", meta$Version)
if (length(year) == 0) year = format(Sys.Date(), '%Y')
citHeader("When you use the multiSiena package in publications,
            please cite the package and/or the manual:")


bibentry(bibtype = "Misc",
         title = meta$Title,
         author = Filter(function(p) 'aut' %in% p$role, as.person(meta$Author)),
         year = year,
         address = "Groningen, The Netherlands",
         organization = "University of Groningen",
         note = vers,
         url = meta$URL,
         textVersion =
            paste("Tom A.B. Snijders, Ruth M. Ripley, and Johan Koskinen, ",
            year,
            ". multiSiena - Simulation Investigation for Empirical Network Analysis, ",
            vers, ". ", meta$URL, sep="")
)

bibentry(bibtype = "article",
         title = "Multilevel Longitudinal Analysis of Social Networks",
         author = c(as.person("Johan H. Koskinen"),
                    as.person("Tom A.B. Snijders")
                             ),
         year = "2023",
         volume = "186",
         pages = {"376--400"},  
         journal = {"Journal of the Royal Statistical Society, Series A"},
         textVersion =
                    "Johan H. Koskinen and Tom A.B. Snijders (2023).
                     Multilevel Longitudinal Analysis of Social Networks.
                     Journal of the Royal Statistical Society, Series A, 186, 376-400."
)
