Delete ID3 algorithm written in R