From 5421b14cb1d85520927b4a9b7d93e3b5f5c33698 Mon Sep 17 00:00:00 2001
From: FaezehYazdi <faezehyazdi62@gmail.com>
Date: Thu, 12 Jun 2025 12:29:50 -0700
Subject: [PATCH] Update r2.R

---
 R/r2.R | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/R/r2.R b/R/r2.R
index d542e4f..bee670d 100644
--- a/R/r2.R
+++ b/R/r2.R
@@ -1,4 +1,17 @@
 f1 <- function(n) {
+  squares_sum <- 0
+  for(i in 1:length(n)) {
+    squares_sum <- squares_sum + n[i]^2
+  }
+  squares_sum
+}
+
+n <- 1:10000
+
+f1(n)
+
+
+f2 <- function(n) {
   cum_sum <- numeric(0)
   for (i in 1:length(n)) {
     cum_sum <- c(cum_sum, sum(n[1:i]))
@@ -8,4 +21,4 @@ f1 <- function(n) {
 
 n <- 1:10000
 
-f1(n)
+f2(n)