Rprog Assignment2