Create QuiQuadrado.R