## ----eval=FALSE----------------------------------------------------------
#  library(fcuk)
#  
#  # Examples
#  sl()
#  > Error in sl() : impossible de trouver la fonction "sl"
#  Did you mean : ls or nls ?
#  
#  iri
#  > Erreur : objet 'iri' introuvable
#  Did you mean : IQR or iris ?
#  
#  view
#  > Erreur : objet 'view' introuvable
#  Did you mean : View or deriv ?
#  
#  mea
#  > Erreur : objet 'mea' introuvable
#  Did you mean : mean or frame ?
#  

## ------------------------------------------------------------------------
.First <- function(){
cat("\n Bonjour !  - ", date(), "\n") 
library(fcuk)
}