for R Class