Script en R con la validacion de la propagacion