for R class