wt=α+b1age+b2gender+b3age∗gender+ϵ
∂wt∂gender=b2+b3age
gender=0age=0gender=1age=1gender=0age=1gender=1age=0
wt=α+b1young.male+b2old.male+b3young.female+ϵ
old.femaleb1old.femaleyoung.maleαwtold.female
…
Contoh-contoh di atas dengan demikian merupakan cara yang terlalu rumit untuk sampai pada kesimpulan ini (bahwa kita benar-benar hanya membandingkan empat cara kelompok), tetapi untuk belajar tentang bagaimana interaksi bekerja, saya pikir ini adalah latihan yang bermanfaat. Ada posting lain yang sangat bagus di CV tentang interaksi variabel kontinu dengan variabel nominal, atau interaksi dua variabel kontinu. Meskipun pertanyaan Anda telah diedit untuk menentukan tes non-parametrik, saya pikir akan membantu untuk memikirkan masalah Anda dari pendekatan yang lebih konvensional (yaitu, parametrik), karena sebagian besar pendekatan non-parametrik untuk pengujian hipotesis memiliki logika yang sama tetapi umumnya dengan lebih sedikit asumsi tentang distribusi tertentu.
wt
old.menyoung.women
Mengesampingkan interaksi "signifikan"
x1x2x1x2Tetapi sekali lagi, jika kita hanya memiliki dua kovariat yang hanya dapat mengambil nilai 0 atau 1, itu berarti bahwa kita pada dasarnya melihat empat cara kelompok.
Contoh yang berhasil
Mari kita bandingkan hasil dari model interaksi dengan hasil dari uji Dunn. Pertama, mari kita hasilkan beberapa data di mana (a) pria berbobot lebih dari wanita, (b) pria yang lebih muda beratnya lebih rendah daripada pria yang lebih tua, dan (c) tidak ada perbedaan antara wanita yang lebih muda dan lebih tua.
set.seed(405)
old.men<-rnorm(50,mean=80,sd=15)
young.men<-rnorm(50,mean=70,sd=15)
young.women<-rnorm(50,mean=60,sd=15)
old.women<-rnorm(50,mean=60,sd=15)
cat<-rep(1:4, c(50,50,50,50))
gender<-rep(1:2, c(100,100))
age<-c(rep(1,50),rep(2,100),rep(1,50))
wt<-c(old.men,young.men,young.women,old.women)
data<-data.frame(cbind(wt,cat,age,gender))
data$cat<-factor(data$cat,labels=c("old.men","young.men","young.women","old.women"))
data$age<-factor(data$age,labels=c("old","young"))
data$gender<-factor(data$gender,labels=c("male","female"))
wt
mod<-lm(wt~age*gender,data)
library(effects)
allEffects(mod)
model: wt ~ age * gender
age*gender effect
gender
age male female
old 80.61897 57.70635
young 67.78351 56.01228
Perlu menghitung kesalahan standar atau interval kepercayaan untuk efek marginal Anda? Paket 'efek' yang dirujuk di atas dapat melakukan ini untuk Anda, tetapi lebih baik lagi, Aiken dan Barat (1991) memberi Anda formula, bahkan untuk model interaksi yang jauh lebih rumit. Meja mereka dicetak dengan nyaman di sini , bersama dengan komentar yang sangat bagus dari Matt Golder.
Sekarang untuk mengimplementasikan tes Dunn.
#install.packages("dunn.test")
dunn.test(data$wt, data$cat, method="bh")
Kruskal-Wallis chi-squared = 65.9549, df = 3, p-value = 0
Comparison of x by group
(Benjamini-Hochberg)
Col Mean-|
Row Mean | old.men young.me young.wo
---------+---------------------------------
young.me | 3.662802
| 0.0002*
|
young.wo | 7.185657 3.522855
| 0.0000* 0.0003*
|
old.wome | 6.705346 3.042544 -0.480310
| 0.0000* 0.0014* 0.3155
Nilai p pada hasil uji chi-squared Kruskal-Wallis menunjukkan bahwa setidaknya satu dari kelompok kami 'berasal dari populasi yang berbeda.' Untuk perbandingan kelompok per kelompok, angka atas adalah statistik uji-Dunn, dan angka bawah adalah nilai-p, yang telah disesuaikan untuk beberapa perbandingan. Karena data contoh kami agak palsu, tidak mengherankan bahwa kami memiliki begitu banyak nilai p. Tetapi perhatikan perbandingan kanan bawah antara wanita yang lebih muda dan lebih tua. Tes dengan benar mendukung hipotesis nol bahwa tidak ada perbedaan antara kedua kelompok ini.
…
UPDATE: Diberikan jawaban lain, jawaban ini telah diperbarui untuk membantah gagasan bahwa ini memerlukan segala bentuk pemodelan non-linear, atau yang - diberikan contoh khusus OP dari dua kovariat biner, yaitu, empat kelompok - bahwa harus ada menandatangani perubahan untuk menilai ini secara non-parametrik. Jika usia terus menerus, misalnya, akan ada cara lain untuk mendekati masalah ini, tetapi itu bukan contoh yang diberikan oleh OP.