# NOT RUN {
data(resZTest)
K=resZTest
Z=K$zonePolygone
plotZ(Z)
# remove from Z all zones with less than 10 data points
Z2=removeFromZ(Z,K$zoneN,K$krigN,K$listZonePoint,mapTest$krigData,n=10)
printZid(Z2$Z)
# }
Run the code above in your browser using DataLab