Create Lab1.R