Fungsi Uji KORELASI menggunakan R (function of correlation test using with R)

Hallo teman-teman sekarang saya akan membahas tentang pengertian, cara, dan pengujian korelasi menggunakan aplikasi/software R.

KORELASI adalah suatu teknik statistik yang digunakan untuk mengukur kekuatan hubungan dan menentukan arah antara dua variabel. Kekuatan hubungan di sini yaitu apakah hubungan tersebut kuat, sedang, atau lemah. Sedangkan arah yaitu apakah antara dua variabel tersebut memiliki hubungan positif atau hubungan negatif. 

Koefisien korelasi nilainya akan selalu berada di antara (-1) hingga 1, jika nilai korelasi mendekati (-1) atau 1 maka hubungannya makin kuat, penulisan matematikannya : -1≤r≤1.

Rumus untuk menghitung Koefisien Korelasi :

Nah,sebelum kita menghitung nilai koefisien korelasi maka kita harus menguji dahulu apakah terdapat hubungan di antara variabel yang akan kita gunakan? dengan menggunakan pengujian korelasi. 

Rumus untuk melakukan Uji Korelasi :

Di sini saya akan membuat fungsi korelasinyanya sendiri nama fungsinya "korelasi" lalu akan saya cocokan dengan fungsi korelasi yang sudah ada di software/aplikasi R. Langsung saja kita coba fungsi di bawah ini dan melihat hasilnya : 

> korelasi <- function(x,y){

+   n <- length(x)

+   df <- n-2

+ r <- ((n*(sum(x*y)))-((sum(x))*(sum(y))))/(sqrt(((n*(sum(x^2)))-((sum(x))^2))*((n*(sum(y^2)))-((sum(y))^2))))

+ t_hitung <- (r*(sqrt(n-2)))/(sqrt(1-(r^2)))

+ print(paste("t =",t_hitung," df =",df))

+ print(paste("Korelasi =",r))

+ }

>

Selanjutnya kita buat dan masukkan kedua variabel tersebut (variabel A dan variabel B) ke dalam fungsi yang telah kita buat, lalu jalankan (run) fungsi yang telah kita buat dan melihat hasilnya, Apakah sama dengan fungsi yang sudah ada di R ?

> A <- c(2,3,4,5,3,2,1,4,5,6)

> B <- c(5,8,9,14,7,6,3,9,13,15)

>

> korelasi(a,b)

[1] "t = 8.99653065227508  df = 8"

[1] "Korelasi = 0.953965018411122"

>

> cor.test(a,b)

Pearson's product-moment correlation

data:  a and b

t = 8.9965, df = 8, p-value = 1.858e-05

alternative hypothesis: true correlation is not equal to 0

95 percent confidence interval:

 0.8121492 0.9893479

sample estimates:

     cor 

0.953965 

> 

Karena hasilnya sudah sama persis maka fungsi di atas sudah benar untuk menguji dan mencari nilai dari koefisien korelasi dari variabel yang telah kita buat. Untuk nilai p-value nya teman-teman cari sendiri yah, lumayan untuk belajar trus cocokin deh hasilnya.

Nah, teman-teman bisa mengembangkan lagi fungsi di atas sesuai keinginan dan kebutuhan teman-teman sendiri.

Terima Kasih...