rprog-005: finish assignment 1 week 4