diff --git a/R/hello.R b/R/hello.R
new file mode 100644
index 0000000..3c562c4
--- /dev/null
+++ b/R/hello.R
@@ -0,0 +1,18 @@
+# Hello, world!
+#
+# This is an example function named 'hello' 
+# which prints 'Hello, world!'.
+#
+# You can learn more about package authoring with RStudio at:
+#
+#   http://r-pkgs.had.co.nz/
+#
+# Some useful keyboard shortcuts for package authoring:
+#
+#   Build and Reload Package:  'Ctrl + Shift + B'
+#   Check Package:             'Ctrl + Shift + E'
+#   Test Package:              'Ctrl + Shift + T'
+
+hello <- function() {
+  print("Hello, world!")
+}
diff --git a/R/test-add_footnote.r b/R/test-add_footnote.r
new file mode 100644
index 0000000..a17b3ca
--- /dev/null
+++ b/R/test-add_footnote.r
@@ -0,0 +1,11 @@
+context("Add_Footnote")
+#####
+
+rtable <- data.frame(variable = c("mpg", "wt"), mean = c(20.091, 3.217), sd = c(6.027, 0.978))
+htmltable_1 <- kable(rtable, format = "html")
+htmltable_2 <- kable(rtable, format = "html", caption = "Table", table.attr = "class = 'table table-striped table-hover'")
+latextable_1 <- kable(rtable, format = "latex")
+latextable_2 <- kable(rtable, format = "latex", caption = "Table", row.names = T, align = c("l", "c", "c"))
+latextable_3 <- kable(rtable, format = "latex", booktab = T)
+latextable_4 <- kable(rtable, format = "latex", booktab = T, caption = "Table")
+