R/zzz.R

In fmrs: Variable Selection in Finite Mixture of AFT Regression and FMR

#' @useDynLib fmrs

.onAttach <- function(lib, pkg) {
    fmrsversion <- utils::packageVersion("fmrs")
    fmrsdate <- utils::packageDescription("fmrs")$Date
    fmrsdescrip <- utils::packageDescription("fmrs")$Description
    fmrsBugReports <- utils::packageDescription("fmrs")$BugReports
    #packageStartupMessage(paste("fmrs package, Version ", fmrsversion, ", Released ", fmrsdate, "\n", fmrsdescrip, "\nBugReports: ", fmrsBugReports, sep = ""))
    packageStartupMessage(paste("BugReports: ", fmrsBugReports, sep = ""))
}

.onUnload <- function(libpath) library.dynam.unload("fmrs", libpath)