diff --git a/R/equal_vector.R b/R/equal_vector.R
index f7a48a395b87626aec33a17c5694cff4dd2f2139..154ca92b0b784a01c89c335e18d9e8f7b94cc7df 100644
--- a/R/equal_vector.R
+++ b/R/equal_vector.R
@@ -6,12 +6,7 @@
 ##
 ## @return A vector of TRUE and FALSE values
 ##
+
 equal_vector <- function(vector, value){
-  tempFunction<-function(x,value){
-    isTRUE(all.equal(x,value))
-  }
-  return(sapply(vector,tempFunction,value))
+  return(abs(vector-value)<.Machine$double.eps^0.5)
 }
-
-
-