diff --git a/R/r1.R b/R/r1.R
index f4f4803..b4af6e2 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -1,11 +1,8 @@
 f1 <- function(n) {
-  squares_sum <- 0
-  for(i in 1:length(n)) {
-    squares_sum <- squares_sum + n[i]^2
-  }
-  squares_sum
+  sum(n^2)
 }
 
 n <- 1:10000
 
 f1(n)
+