diff --git a/.gitignore b/.gitignore
index e75435c..50bcdaa 100644
--- a/.gitignore
+++ b/.gitignore
@@ -47,3 +47,7 @@ po/*~
 
 # RStudio Connect folder
 rsconnect/
+
+.DS_Store
+
+.gitignore
diff --git a/exercise/1.R b/exercise/1.R
new file mode 100644
index 0000000..326377e
--- /dev/null
+++ b/exercise/1.R
@@ -0,0 +1,12 @@
+age <- c(6, 14, 12, 10)
+name <- c("Audree", "Andy", "Rose", "Andrew")
+gender <- c("female", "male", "female", "male")
+info <- data.frame(age, name, gender)
+print(info[3, 2])
+print(info[2:3, ])
+info <- info[-c(1), ]
+print(info[7 < info[, 1] & info[, 1] < 13])
+info[2, 1] <- 8
+print(summary(info))
+info$gender <- as.factor(info$gender)
+print(summary(info))
\ No newline at end of file
diff --git a/samples/1.1.R b/samples/1.1.R
new file mode 100755
index 0000000..762858b
--- /dev/null
+++ b/samples/1.1.R
@@ -0,0 +1,5 @@
+print(5 + 5)
+name <- paste("placeholder", readline("Input"), sep = " * ")
+print(name)
+number <- sum(as.integer(readline("Num 1")), as.integer(readline("Num 2")))
+print(number)
diff --git a/samples/1.2.R b/samples/1.2.R
new file mode 100755
index 0000000..62fb464
--- /dev/null
+++ b/samples/1.2.R
@@ -0,0 +1,2 @@
+sheet1 <- read.table("sheet-example1.csv", sep = ",", header = TRUE)
+View(sheet1)
\ No newline at end of file
diff --git a/samples/sheet-example1.csv b/samples/sheet-example1.csv
new file mode 100755
index 0000000..b4d8f99
--- /dev/null
+++ b/samples/sheet-example1.csv
@@ -0,0 +1,4 @@
+colume 1, colume 2, colume 3, colume 4
+row 1, 686, 655, 651
+row 2, 161, 515, 656
+row 3, 791, 125, 687