Update Ten_max.r

Ten_max.r

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