diff --git a/R/r1.R b/R/r1.R
index f4f4803..22840c9 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -9,3 +9,8 @@ f1 <- function(n) {
 n <- 1:10000
 
 f1(n)
+
+
+f2 <- function(n) {
+  sum(n^2)
+}