diff --git a/Solutions to the questions concerning R language.md b/Solutions to the questions concerning R language.md
new file mode 100644
index 0000000..19bc7a3
--- /dev/null
+++ b/Solutions to the questions concerning R language.md	
@@ -0,0 +1,10 @@
+***Applied Question***
+
+**i.**
+```
+library(ISLR)
+set.seed(9004)
+train = sample(dim(OJ)[1], 800)
+OJ.train = OJ[train, ]
+OJ.test = OJ[-train, ]
+```
\ No newline at end of file