Script en R realizado para analizar los datos obtenidos.