Tirei comentário errado dos códigos.
Código do pacote rlearning.