diff --git a/r-linear-search.r b/r-linear-search.r
new file mode 100644
index 0000000..69c50bb
--- /dev/null
+++ b/r-linear-search.r
@@ -0,0 +1,5 @@
+> v <- c(3, 4, 0, 2, 1)
+> target <- 2 
+> found <- 2 %in% v  # TRUE
+> sv <- sort(v)
+> idx <- which.max(v)  # idx = 2