diff --git a/Algorithms/README.md b/Algorithms/README.md
index 14fc2b1..47ae746 100644
--- a/Algorithms/README.md
+++ b/Algorithms/README.md
@@ -15,7 +15,7 @@
 
 | Algorithm | Complexity | Implementations |
 | --- | --- | --- |
-| [Linear Search](#LinearSearch) | O(n) | <img src="https://img.shields.io/badge/-Python-blue"> <img src="https://img.shields.io/badge/-C-black"> <img src="https://img.shields.io/badge/-C++-grey"> <img src="https://img.shields.io/badge/-Java-red"> <img src="https://img.shields.io/badge/-PHP-purple"> |
+| [Linear Search](#LinearSearch) | O(n) | <img src="https://img.shields.io/badge/-Python-blue"> <img src="https://img.shields.io/badge/-C-black"> <img src="https://img.shields.io/badge/-C++-grey"> <img src="https://img.shields.io/badge/-Java-red"> <img src="https://img.shields.io/badge/-PHP-purple"> <img src="https://img.shields.io/badge/-R-blue">8|
 | [Binary Search](#BinarySearch) | Theta(logn) | <img src="https://img.shields.io/badge/-Python-blue"> <img src="https://img.shields.io/badge/-C-black"> <img src="https://img.shields.io/badge/-C++-grey"> <img src="https://img.shields.io/badge/-Java-red"> <img src="https://img.shields.io/badge/-PHP-purple">|
 | [Ternary Search](#TernarySearch) | Theta(logn) | <img src="https://img.shields.io/badge/-C++-grey"> |
 | [Jump Search](#JumpSearch) | O(sqrt(n)) | <img src="https://img.shields.io/badge/-Python-blue"> <img src="https://img.shields.io/badge/-C-black"> <img src="https://img.shields.io/badge/-C++-grey"> <img src="https://img.shields.io/badge/-Java-red"> <img src="https://img.shields.io/badge/-PHP-purple"> |
@@ -353,6 +353,7 @@
 <!--
 None yet: <img src="https://img.shields.io/badge/-None%20Yet-orange">
 Python: <img src="https://img.shields.io/badge/-Python-blue">
+R: <img src="https://img.shields.io/badge/-R-blue">
 C: <img src="https://img.shields.io/badge/-C-black">
 C++: <img src="https://img.shields.io/badge/-C++-grey">
 Go: <img src="https://img.shields.io/badge/-Go-#7FFFD4">  // Aquamarine
diff --git a/Algorithms/Searching/linearSearch.R b/Algorithms/Searching/linearSearch.R
new file mode 100644
index 0000000..3d53c42
--- /dev/null
+++ b/Algorithms/Searching/linearSearch.R
@@ -0,0 +1,25 @@
+# Linear Search R implementation. O(n).
+LinearSearch <- function (elements, x){
+	# elements : vector with the elements
+	# x        : element to be found
+	if (length(elements)!= 0){
+		for (i in 1:length(elements)){
+			if (elements[i] == x){
+				return(i)
+			}
+		}
+	}
+	return(-1)
+}
+
+elements <- c(1, 3, 4, 5, 6, 8, 23, 43, 44, 45)
+x <- 23
+
+position <- LinearSearch(elements, x)
+
+if (position[1] == -1){
+	print("The element has not been found")
+} else {
+	sprintf("The element has been fount at position %d", position + 1)
+}
+
diff --git a/README.md b/README.md
index 6d87e7f..72a56c4 100644
--- a/README.md
+++ b/README.md
@@ -41,6 +41,10 @@ python script.py
 
 * <img src="https://img.shields.io/badge/-R-green"> :
 
+```
+Rscript script.R
+```
+
 * <img src="https://img.shields.io/badge/-C-black"> :
 
 In case some flag is needed for the compiler, will be indicated in the script.
@@ -93,6 +97,7 @@ g++ script.cpp -o compiled/script
 <!--
 None yet: <img src="https://img.shields.io/badge/-None%20Yet-orange">
 Python: <img src="https://img.shields.io/badge/-Python-blue">
+R: <img src="https://img.shields.io/badge/-R-blue">
 C: <img src="https://img.shields.io/badge/-C-black">
 C++: <img src="https://img.shields.io/badge/-C++-grey">
 Go: <img src="https://img.shields.io/badge/-Go-#7FFFD4">  // Aquamarine