options(repos = c(CRAN = "http://mirrors.xmu.edu.cn/CRAN/", CRANextra = "http://www.stats.ox.ac.uk/pub/RWin")) 


# local({old <- getOption("defaultPackages")
# 		options(defaultPackages = c(old, "ggplot2"))})


.First <- function(){
  library(praise)
  cat(praise("${EXCLAMATION}! ${EXCLAMATION}! Handsome man,you have done this ${adverb_manner}!"),"\n",praise(),"\n",praise(),"\n")
  cat("\nWelcome at",date(),"\n")
}


.Last <- function(){
  cat("\nGoodnye at",date(),"\n")
}