Create final1.R