Create alg1.R