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
…
Yukarıdaki örnekler bu nedenle bu sonuca varmanın aşırı karmaşık bir yoludur (gerçekten sadece dört grup aracını karşılaştırıyoruz), ancak etkileşimlerin nasıl çalıştığını öğrenmek için, bunun yararlı bir egzersiz olduğunu düşünüyorum. CV üzerinde sürekli bir değişkenin nominal bir değişkenle etkileşimi veya iki sürekli değişkenin etkileşimi hakkında başka çok iyi mesajlar vardır. Sorunuz parametrik olmayan testleri belirtmek için düzenlenmiş olsa da, probleminizi daha geleneksel (yani parametrik) bir yaklaşımdan düşünmek yararlı olduğunu düşünüyorum, çünkü hipotez testine parametrik olmayan yaklaşımların çoğu aynı mantığa sahip, ancak genellikle spesifik dağılımlar hakkında daha az varsayım.
wt
old.menyoung.women
"Önemli" etkileşimlerin kısa kenarı
x1x2x1x2Ama bir kez daha, sadece 0 veya 1 değerlerini alabilen iki ortak değişkenimiz varsa, bu aslında dört grup aracına baktığımız anlamına gelir.
Çalışılan Örnek
Etkileşim modelinin sonuçlarını Dunn testinin sonuçlarıyla karşılaştıralım. İlk olarak, (a) erkeklerin kadınlardan daha ağır olduğu, (b) genç erkeklerin yaşlı erkeklerden daha az ağır olduğu ve (c) genç ve yaşlı kadınlar arasında fark olmadığı bazı veriler üretelim.
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
Marjinal etkiniz için standart bir hata veya güven aralığı hesaplamanız mı gerekiyor? Yukarıda başvurulan 'efektler' paketi bunu sizin için yapabilir, ancak daha da iyisi, Aiken ve West (1991) çok daha karmaşık etkileşim modelleri için bile formülleri verir. Onların masaları burada , Matt Golder'ın çok iyi yorumlarıyla birlikte rahatça basılmıştır .
Şimdi Dunn testini uygulayalım.
#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
Kruskal-Wallis ki kare test sonucundaki p değeri, gruplarımızdan en az birinin 'farklı bir popülasyondan geldiğini' göstermektedir. Grup-grup karşılaştırmaları için en üstteki sayı Dunn'ın z-test istatistiğidir ve en alttaki sayı çoklu karşılaştırmalar için ayarlanmış bir p-değeridir. Örnek verilerimiz oldukça yapay olduğundan, çok sayıda küçük p değerine sahip olmamız şaşırtıcı değildir. Ancak genç ve yaşlı kadınlar arasındaki sağ alt karşılaştırmaya dikkat edin. Test, bu iki grup arasında fark olmadığı yönündeki sıfır hipotezini doğru bir şekilde desteklemektedir.
…
GÜNCELLEME: Diğer cevaplar göz önüne alındığında, bu cevap, bunun herhangi bir doğrusal olmayan modelleme gerektirdiği veya OP'nin iki ikili ortak değişkene, yani dört gruba özgü bir örnek verildiği - işareti parametrik olmayan bir şekilde asesses olarak değişir. Örneğin, yaş sürekli olsaydı, bu soruna yaklaşmanın başka yolları olurdu, ama bu OP tarafından verilen örnek değildi.