diff --git a/code/A98_PredictorsExtract.R b/code/A98_PredictorsExtract.R
index 7af6d9fed6faeb13a76fb141d90fd05f6b86ec20..ace4faa6258737425edd4cfd2f9adf43ecbf4dc2 100644
--- a/code/A98_PredictorsExtract.R
+++ b/code/A98_PredictorsExtract.R
@@ -16,7 +16,8 @@ PredExtr <- function(x.shp, myfunction=NA, output=NA,
   require(doParallel)
   require(raster)
   require(rgeos)
-  require(rgdal) 
+  require(rgdal)
+  require(geosphere) 
  
   print(paste("Loading", typp, "data :", toextract))
   print(paste("output will be:", output))
diff --git a/code/submit-A98-array.sh b/code/submit-A98-array.sh
index 8a82bfd16601d29be68f3a2a4717ef45d24b2514..f69e1bbcc96c3898a65e068d5ab0a2823861ed0b 100644
--- a/code/submit-A98-array.sh
+++ b/code/submit-A98-array.sh
@@ -32,6 +32,6 @@ Rscript \
     --chunk.i "$SGE_TASK_ID" \
     --chunkn 99 \
     /data/splot/_data_splot3/header.shp.shp \
-    NA \
+    robust.mean \
     "$output" \
     "$filename"