Invia SMS: Generating a Pseudo-Random Automobile Insurance Portfolio in R