First script writing assignment for a R class