codigos interessantes in R