R Script for Projet LTE