From c5d76f801ad258a68e1b95dc5adc0058c70476b0 Mon Sep 17 00:00:00 2001
From: paras-2407 <131509174+paras-2407@users.noreply.github.com>
Date: Sat, 30 Sep 2023 00:01:11 +0530
Subject: [PATCH] Create in_R.r

Linear search code in R language
---
 Searching/Linear-Search/in_R.r | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 Searching/Linear-Search/in_R.r

diff --git a/Searching/Linear-Search/in_R.r b/Searching/Linear-Search/in_R.r
new file mode 100644
index 0000000..8cb5192
--- /dev/null
+++ b/Searching/Linear-Search/in_R.r
@@ -0,0 +1,19 @@
+linear_search<-function(vector, search_value){ #made a function named linear_search having two parameters that are an array and a value to be searched
+  for(i in 1:length(vector)){ 
+    if(vector[i]==search_value){ #comparing each value of array with the value to be searched
+      return (i)
+    }
+  }
+  return (-1)
+}
+
+user_vec<- c(10,20,30,40,50,60) #input array (hard code)
+user_val<-30 #input value to be searched (hard code)
+
+result<-linear_search(user_vec,user_val) #linear_seach function calling
+
+if(result!=-1){
+  cat("Searched value", user_val, "found at", result-1) #displaying the index at which value is found (if any)
+}else{
+  cat("Searched value does not exist in array")
+}