calculates optimum: fixed criteria for slope
calcular.optimo.criterio(i.curva.map, i.criterio = 2.8)
Useful links