Create assign1_rcode.R