Fungsi Penjumlahan, Rata-rata, dan Standart Deviasi menggunakan Program R

hallo teman-teman sekarang saya akan membuat beberapa fungsi (fungsi penjumlahan, rata-rata, dan standar deviasi) sendiri yang bukan merupakan fungsi asli yang terdapat di dalam program R. Dan akan saya cocokkan hasilnya dengan fungsi yang sudah ada di dalam program R. Jika hasilnya sudah sama, maka fungsi yang saya buat sudah tepat. langsung saja kita lihat di bawah ini.


> ## function ##
> 
> b <- c(1,2,3,4,5,6,7,8,9,0)
> 
> ######################
> ##fungsi penjumlahan##
> ######################
> jumlah <- function(a){
+ jumlah <-0
+ n <- length(a)
+ for (i in 1:n) {
+ jumlah <- jumlah+a[i]
+ }
+ return(jumlah)
+ }
> jumlah(b)
[1] 45
> sum(b)
[1] 45
> 
> ####################
> # fungsi rata-rata #
> ####################
> rata <- function(a)
+ {
+   rata=jumlah(a)/length(a)
+   return(rata)
+ }
> rata(b)
[1] 4.5
> mean(b)
[1] 4.5
> 
> ###########################
> # fungsi standart deviasi #
> ###########################
> stdev <- function(a)
+ {
+   n <- length(a)
+   apa <- c()
+   for(i in 1:n) {
+     apa[i] <- (a[i]-rata(a))^2
+   }
+    var <- sum(apa)/(n-1)
+     stdev <- sqrt(var)
+   return(stdev)
+ }
> stdev(b)
[1] 3.02765
> sd(b)
[1] 3.02765
>


Karena hasil dari masing-masing fungsi yang saya buat sudah sama dengan fungsi yang ada di dalam R, maka fungsi yang saya buat sudah tepat dan benar. teman-teman juga dapat mengembangkan fugsi-fungsi di atas menjadi lebih simpel dan unik.
Terima kasih.