Fungsi Mencari Median Data (Function of Find Median in data) menggunakan R

Hai, teman-teman...
saat ini saya akan mencoba mempost fungsi untuk mencari median dari suatu data dengan menggunakan program R. sebelum masuk ke fungsinya saya akan menjelaskan tentang median terlebih dahulu. pasti teman-teman sudah tau apa itu median data, ya median adalah suatu nilai yang posisinya di tengah dari sebuah data.

di bawah ini adalah ALGORITMA dari fungsi median sendiri :
1. pastinya kita harus memiliki data dahulu, seperti contoh di bawah kita memiliki data yang elemen-elemen atau nilai nya yaitu 4,3,5,7,8,6,4,3,2,9,1
2. langkah yang pertama kita harus mengurutkan terlebih dahulu data tersebut
3. setelah diurutkan maka kita mencari banyak elemen dari data tersebut, gunanya untuk membedakan antara median data ganjil, dan median data genap,
4. setelah itu kita buat dua kondisi untuk banyak elemen dari data ganjil dan genap untuk menentukan posisi dari median data kita. contoh di atas yaitu banyak elemen dalam datanya adalah ganjil.
5. lalu setelah itu kita bisa cari mediannya.

Langsung saja kita lihat dan coba fungsi median di bawah ini :

> data <- c(4,3,5,7,8,6,4,3,2,9,1)
> #########################
> # fungsi mencari Median # 
> #########################
> med <- function(a) {
+     n <- length(a)
+     urut <- sort(a)
+     if (n%%2==0){ 
+       letak <- n%/%2 
+       med <- (urut[letak]+urut[letak+1])/2}
+     else if (n%%2==1) {
+       letak <- (n+1)%/%2
+       med <- (urut[letak])
+     }
+     return(med)
+   }
> 
> med(data)
[1] 4
> median(data)  #fungsi yang sudah ada di dalam Program untuk mencari median data#
[1] 4
>

karena hasil dari fungsi di atas dan hasil dari fungsi yang ada di R sudah sama maka fungsi di atas sudah benar.
Terima kasih.... :)