Update Ten_max

Ten_max

@@ -5,7 +5,7 @@ Ten_max<-function(ref,index=20)
   for(i in 1:dim(ref)[2])
   {
     seuil<-sort(ref[,i],decreasing=T)[index]
-    temp<-which(ref[,i]>(seuil-1))
+    temp<-which(ref[,i]>(seuil))
     vref<-unique(c(vref,temp))
   }