R_dataming_algorithm