remove unused vector_percentile

diff --git a/lib/sparse/general.c b/lib/sparse/general.c
index 1ba6358a439cf71375fda74ef193c2db4545754f..4e5402570dd17b46ce737e57f9357983f9a59ef0 100644 (file)
--- a/lib/sparse/general.c
+++ b/lib/sparse/general.c
@@ -15,23 +15,6 @@
 double _statistics[10];
 #endif
 
-real vector_percentile(int n, real *x, real y){
-  /* find the value such that y% of element of vector x is <= that value.
-   y: a value between 0 and 1.
-  */
-  int *p = NULL, i;
-  real res;
-  vector_ordering(n, x, &p);
-  
-
-  y = MIN(y, 1);
-  y = MAX(0, y);
-
-  i = n*y;
-  res = x[p[i]];
-  FREE(p); return res;
-}
-
 real drand(){
   return rand()/(real) RAND_MAX;
 }

diff --git a/lib/sparse/general.h b/lib/sparse/general.h
index 40329d9fc04c5b68eb7bb062cca06c38ed9badfb..1112f9ee63dc6d7867781fc7238b0b0be9c6322e 100644 (file)
--- a/lib/sparse/general.h
+++ b/lib/sparse/general.h
@@ -104,7 +104,6 @@ void vector_float_take(int n, float *v, int m, int *p, float **u);
 */
 void vector_ordering(int n, real *v, int **p);
 void vector_sort_int(int n, int *v);
-real vector_percentile(int n, real *x, real y);/* find the value such that y% of element of vector x is <= that value.*/
 
 void vector_print(char *s, int n, real *x);