image(kr.ln.vti.ha,val=sqrt(kr.ln.vti.ha$krige.var),ylim=c(-10,110),xlim=c(1,80),col=rev(heat.colors(10)),ylab="Coordenada N",xlab="Coordenada E")
legend.krige(x.leg=c(0,80),y.leg=c(-8,0),val=sqrt(kr.ln.vti.ha$krige.var),col=rev(heat.colors(10)))
image(kr.vp.mod.2.1.sar,val=sqrt(kr.vp.mod.2.1.sar$krige.var),ylim=c(-10,110),xlim=c(1,80),col=rev(heat.colors(10)),ylab="Coordenada N",xlab="Coordenada E")
legend.krige(x.leg=c(0.81,83.74),y.leg=c(-8,0),val=sqrt(kr.vp.mod.2.1.sar$krige.var),col=rev(heat.colors(10)))