Create atencion.R