 b/R/zzz.R
+.onAttach <- function(libname, pkgname) {
+  # Display ASCII art
+  ascii_art_path <- system.file("extdata", "ascii_art.txt", package = "TransProR")
+  if (file.exists(ascii_art_path)) {
+    ascii_art_lines <- readLines(ascii_art_path)
+    ascii_art <- paste(ascii_art_lines, collapse = "\n")
+    packageStartupMessage(ascii_art)
+  } else {
+    packageStartupMessage("Welcome to TransProR!")
+  }
+}