15 lines
258 B
R
15 lines
258 B
R
|
init <- function() {
|
||
|
|
source(".init.R")
|
||
|
|
}
|
||
|
|
|
||
|
|
cat("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n")
|
||
|
|
cat(" =================")
|
||
|
|
cat("\n\n")
|
||
|
|
cat(" WELCOME !\n")
|
||
|
|
cat("\n")
|
||
|
|
cat(" Type 'init()' to begin\n\n")
|
||
|
|
cat("\n")
|
||
|
|
cat(" =================")
|
||
|
|
cat("\n\n")
|
||
|
|
|