diff --git a/Ten_max.r b/Ten_max.r
index a62e1136c74e826065c96345dfa7f13ddd1a532a..4096e7fa109a07f4e20d997ff5a8d82d88d109ac 100644
--- a/Ten_max.r
+++ b/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))
   }