Envoyer par SMS: Discovering Statistics Using R