Create Lab5.R