[R] Uji T dua Sampel / Variabel Dependent

Kelanjutan dari postingan sebelumnya (Uji T dua Sampel Independent dan Uji T satu Sampel), sekarang akan dipaparkan bagaimana melakukan uji T dua Sampel Dependent dengan menggunakan R. Uji ini biasa juga disebut Uji T Paired, karena kedua variabel yang digunakan itu punya keterkaitan.

Pemakaian uji ini bisa dipakai pada kasus Sebelum-Sesudah dilakukan perlakuan. Misalkan, untuk menjawab apakah berat badan seseorang sebelum meminum obat pelangsing, akan turun signifikan berat badannya sesudah meminum obat pelangsing itu selama satu minggu.

Sesuai kasus berat badan tersebut, berikut data-nya.

Untuk mengetahui apakah memang benar-benar terjadi penurunan berat badan setelah meminum obat tersebut selama 1 minggu, dapat dilakukan uji T Paired (uji T 2 sampel Dependent). Berikut Script R –nya yang simpel.

 ## import data  
 mydata <- read.table(file="mydata.csv",sep=";",header=T)  
 ## Uji T dua sampel Dependent (paired) untuk variabel Berat badan sebelum dan sesudah meminum obat (alpha = 0.05)  
 ## Apakah setelah meminum obat pelangsing, berat badan akan turun..  
 ## H0 : beratSesudah >= beratSebelum  
 ## H1 : beratSesudah < beratSebelum  
 t.test(x=mydata$beratSesudah,y=mydata$beratSebelum,alternative="less",conf.level=0.95,paired=TRUE)  

Untuk mengaktifkan uji T Paired, set “Paired = TRUE”. Uji ini menghasilkan perbedaan berat badan dengan formula “x – y”. Sehingga taruh variabel beratSesudah pada x dan berat sebelum pada y. Untuk kasus ini digunakan “alternative = less”, karena ingin tahu apakah menurun atau tidak berat badannya.

Dari script R itu akan dihasilkan output seperti ini.

 Paired t-test  
 data: mydata$beratSesudah and mydata$beratSebelum  
 t = -6.0927, df = 13, p-value = 1.913e-05  
 alternative hypothesis: true difference in means is less than 0  
 95 percent confidence interval:  
    -Inf -2.594143  
 sample estimates:  
 mean of the differences   
        -3.657143  

Dari output, didapat p-value sangat kecil dari alpha/2 (0.025), maka Ho ditolak. Sehingga dapat disimpulkan bahwa obat pelangsing yang diminum selama seminggu mampu menurunkan berat badan signifikan, dengan tingkat kepercayaan 95%.

Semoga bermanfaat......

Download Data dan Script R