This is the result of an exercise of my R class.