From 7f65b375239eaa0becba5a99b271bf519246357d Mon Sep 17 00:00:00 2001 From: Jaskirat Date: Thu, 12 Jun 2025 12:12:44 -0700 Subject: [PATCH 1/2] My R exercise --- R/r1.R | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/R/r1.R b/R/r1.R index f4f4803..bac2459 100644 --- a/R/r1.R +++ b/R/r1.R @@ -6,6 +6,21 @@ f1 <- function(n) { squares_sum } -n <- 1:10000 +###test function 2 -f1(n) +f2<-function(n){ + squares_sum <- 0 + for(i in 1:length(n)) { + squares_sum <- squares_sum + n[i]^2 + } + squares_sum +} +##test function 3 +f3<-function (n){ +sum(n^2) +} + +#bench marking +library(bench) +n<-100 +print(mark(f1(n),f2(n),f3(n))) From 17d2825788b4db14112942f78ff26fe3526ca25c Mon Sep 17 00:00:00 2001 From: Jaskirat Date: Thu, 12 Jun 2025 12:14:35 -0700 Subject: [PATCH 2/2] R exercise --- R/r1.R | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/R/r1.R b/R/r1.R index bac2459..ee4ac50 100644 --- a/R/r1.R +++ b/R/r1.R @@ -8,19 +8,11 @@ f1 <- function(n) { ###test function 2 -f2<-function(n){ - squares_sum <- 0 - for(i in 1:length(n)) { - squares_sum <- squares_sum + n[i]^2 - } - squares_sum -} -##test function 3 -f3<-function (n){ -sum(n^2) +f2<-function (n){ + sum(n^2) } #bench marking library(bench) n<-100 -print(mark(f1(n),f2(n),f3(n))) +print(mark(f1(n),f2(n)))