Invia SMS: Analysis of the surplus in the collective risk model using R