assignment for R Programming