se cambian for loops por funcion y apply.
falta cambiar ultimo gráfico por lattice.