R/test_install.R

In jrpriceUPS/Math160UPS: Suite of Functions for Math 160 Classes at the University of Puget Sound

#' Test That Your Installation Was Successful
#'
#' Prints a welcome banner to indicate that the installation proceeded successfully
#' @export
#' @examples
#' > test_install()

test_install <- function(){
cat("*********************************************\n*********************************************\n")
  cat("****                                     ****\n")
  cat("****     Welcome to Math 160 at UPS!     ****\n")
  cat("****                                     ****\n")
  cat("*********************************************\n*********************************************\n\n\n")
 cat("You have successfully installed a library\nof code that will help you with your\nstatistical analyses in Math 160.") 
}