R/zzz.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

.onAttach <- function(lib, pkg)
{
  # unlock .mclust variable allowing its modification
  # unlockBinding(".mclust", asNamespace("CorReg")) 
  # startup message
  msg <- CorRegStartupMessage()
  # msg <- CorRegStartupMessage1()
  # msg <- CorRegStartupMessage2()
  
  packageStartupMessage(msg)      
  invisible()
}


CorRegStartupMessage <- function(){
  
  sentences_list <- c("You have successfully unleashed the Power of CorReg.",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "CorReg: The Concept, the Method, the Power",
                      "No scientists were harmed during the development of this package",
                      "Whosoever loads this package, if he be worthy, shall possess the power of CorReg",
                      "One package to rule them all, one package to find them; One package to bring them all and in the darkness decorrelate them.",
                      "All those correlations will be lost in time, like... tears in rain",
                      "CorReg, son histoire, mudafuckaz, CorReg, CorReg, CorReg, CorReg, oh CorReg,...",
                      "The first rule of CorReg is: You talk about CorReg"
  )
  
  return(sample(sentences_list, 1))
}



CorRegStartupMessage1 <- function(){
  msg<-c(paste0("
                                                                                                                    
                                                                                                                    
          CCCCCCCCCCCCC                                         RRRRRRRRRRRRRRRRR                                         
        CCC::::::::::::C                                        R::::::::::::::::R                                          
       CC:::::::::::::::C                                       R::::::RRRRRR:::::R                                         
      C:::::CCCCCCCC::::C                                       RR:::::R     R:::::R                                        
      C:::::C       CCCCCC   ooooooooooo      rrrrr   rrrrrrrrr   R::::R     R:::::R     eeeeeeeeeeee       ggggggggg   ggggg
      C:::::C               oo:::::::::::oo   r::::rrr:::::::::r  R::::R     R:::::R   ee::::::::::::ee    g:::::::::ggg::::g
      C:::::C              o:::::::::::::::o  r:::::::::::::::::r R::::RRRRRR:::::R   e::::::eeeee:::::ee g:::::::::::::::::g
      C:::::C              o:::::ooooo:::::or r::::::rrrrr::::::r R:::::::::::::RR   e::::::e     e:::::eg::::::ggggg::::::gg
      C:::::C              o::::o     o::::o  r:::::r     r:::::r R::::RRRRRR:::::R  e:::::::eeeee::::::eg:::::g     g:::::g 
      C:::::C              o::::o     o::::o  r:::::r     rrrrrrr R::::R     R:::::R e:::::::::::::::::e g:::::g     g:::::g 
      C:::::C              o::::o     o::::o  r:::::r             R::::R     R:::::R e::::::eeeeeeeeeee  g:::::g     g:::::g 
      C:::::C       CCCCCC o::::o     o::::o  r:::::r             R::::R     R:::::R e:::::::e           g::::::g    g:::::g 
      C:::::CCCCCCCC::::C  o:::::ooooo:::::o  r:::::r           RR:::::R     R:::::R e::::::::e          g:::::::ggggg:::::g 
       CC:::::::::::::::C  o:::::::::::::::o  r:::::r           R::::::R     R:::::R  e::::::::eeeeeeee   g::::::::::::::::g 
        CCC::::::::::::C   oo:::::::::::oo    r:::::r           R::::::R     R:::::R   ee:::::::::::::e    gg::::::::::::::g 
          CCCCCCCCCCCCC      ooooooooooo      rrrrrrr           RRRRRRRR     RRRRRRR     eeeeeeeeeeeeee      gggggggg::::::g 
                                                                                                                     g:::::g 
                                                                                                         gggggg      g:::::g 
                                                                                                         g:::::gg   gg:::::g 
                                                                                                         g::::::ggg:::::::g 
                                                                                                          gg:::::::::::::g  
                                                                                                             ggg::::::ggg    
                                                                                                                gggggg       
          "
  ),"\n The Concept, the Method, the Power")
  
  return(msg)
}


CorRegStartupMessage2 <- function(){
  msg<-c(paste0("

       * ***                            ***** ***                         
      *  ****  *                      ******  * **                         
     *  *  ****                      **   *  *  **                         
    *  **   **                      *    *  *   **                         
   *  ***          ****   ***  ****     *  *    *                          
  **   **         * ***  * **** **** * ** **   *       ***       ****      
  **   **        *   ****   **   ****  ** **  *       * ***     *  ***  *  
  **   **       **    **    **         ** ****       *   ***   *    ****   
  **   **       **    **    **         ** **  ***   **    *** **     **    
  **   **       **    **    **         ** **    **  ********  **     **    
   **  **       **    **    **         *  **    **  *******   **     **    
    ** *      * **    **    **            *     **  **        **     **    
     ***     *   ******     ***       ****      *** ****    * **     **    
      *******     ****       ***     *  ****    **   *******   ********    
       ***                         *    **     *     *****      *** ***   
                                   *                                 ***  
                                    **                         ****   *** 
                                                             *******  **  
                                                             *     ****    
  
          "
  ),"\n The Concept, the Method, the Power")
  
  return(msg)
}