R: rprog009 assign 1 part 2