Create assign1_rcode_method2.R