Create Lab4.R