registrando problema q estou enfrentando no script R