Update Ten_max.r

Ten_max.r

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