Rprog - Assign1