From 9e302b156201b2928f4d1c5c65c1c2023b72ec62 Mon Sep 17 00:00:00 2001
From: paras-2407 <131509174+paras-2407@users.noreply.github.com>
Date: Sun, 1 Oct 2023 13:11:56 +0530
Subject: [PATCH 1/2] Create in_R.r

Bubble Sort program in R language
---
 Sorting/Bubble Sort/in_R.r | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 Sorting/Bubble Sort/in_R.r

diff --git a/Sorting/Bubble Sort/in_R.r b/Sorting/Bubble Sort/in_R.r
new file mode 100644
index 0000000..b1c03f6
--- /dev/null
+++ b/Sorting/Bubble Sort/in_R.r	
@@ -0,0 +1,19 @@
+bubbleSort <- function(vector) {
+  n <- length(vector) #stores the length of the input vector/ array
+  
+  for (i in 1:(n - 1)) { #first loop is for passes 
+    for (j in 1:(n - i)) { #second loop will run for the pairs
+      if (vector[j] > vector[j + 1]) {
+        temp <- vector[j] # Swap arr[j] and arr[j + 1]
+        vector[j] <- vector[j + 1]
+        vector[j + 1] <- temp
+      }
+    }
+  }
+  return(vector)
+}
+
+# User Input:
+user_vec <- c(6, 10, 4, 34, 25, 90, 12, 22, 11, 90)
+sortedVector <- bubbleSort(user_vec)
+cat("Sorted Array:", sortedVector, "\n")

From 219a14d295a99eda08f7e4f396f025ff28ec3e0a Mon Sep 17 00:00:00 2001
From: paras-2407 <131509174+paras-2407@users.noreply.github.com>
Date: Sun, 1 Oct 2023 14:07:13 +0530
Subject: [PATCH 2/2] Create in_R.r

Added selection sort code in R language
---
 Sorting/Selection-sort/in_R.r | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 Sorting/Selection-sort/in_R.r

diff --git a/Sorting/Selection-sort/in_R.r b/Sorting/Selection-sort/in_R.r
new file mode 100644
index 0000000..6cfa572
--- /dev/null
+++ b/Sorting/Selection-sort/in_R.r
@@ -0,0 +1,19 @@
+selectionSort <- function(vector) {
+  n <- length(vector) #stores the length of the input vector/ array
+  
+for (i in 1:(n - 1)) {    #first loop is for passes 
+    for (j in (i + 1):n) {    #second loop will run for the pairs
+      if (vector[i] > vector[j]) {  #higher index must have higher valu, if not, swap.
+        temp <- vector[i]     #swap arr[j] and arr[j + 1] 
+        vector[i] <- vector[j]
+        vector[j] <- temp
+      }
+    }
+  }
+  return(vector)
+}
+
+# User Input:
+user_vec <- c(64, 30, 60,90, 25, 12, 2, 11)
+sortedVector <- selectionSort(user_vec)
+cat("Sorted Array:", sortedVector, "\n")