Adicionado exemplo usando o cógido do R do github