create ex-parcial2-parte2.R script