Adding R clustering sample