Scripts From R Class