Invia SMS: Machine Learning with R