Saya memiliki percobaan yang akan saya coba abstraksi di sini. Bayangkan saya melemparkan tiga batu putih di depan Anda dan meminta Anda untuk menilai posisi mereka. Saya mencatat berbagai sifat batu dan respons Anda. Saya melakukan ini pada sejumlah mata pelajaran. Saya menghasilkan dua model. Satu adalah bahwa batu terdekat Anda memprediksi respons Anda, dan yang lainnya adalah bahwa pusat geometri batu memprediksi respons Anda. Jadi, menggunakan lmer di RI bisa menulis.
mNear <- lmer(resp ~ nearest + (1|subject), REML = FALSE)
mCenter <- lmer(resp ~ center + (1|subject), REML = FALSE)
PEMBARUAN DAN PERUBAHAN - versi lebih langsung yang menggabungkan beberapa komentar bermanfaat
aku bisa mencoba
anova(mNear, mCenter)
Yang salah, tentu saja, karena mereka tidak bersarang dan saya tidak bisa benar-benar membandingkannya seperti itu. Saya mengharapkan anova.mer untuk melakukan kesalahan tetapi ternyata tidak. Tetapi kemungkinan bersarang yang bisa saya coba di sini tidak alami dan masih membuat saya dengan pernyataan yang kurang analitis. Ketika model bersarang secara alami (misalnya kuadrat pada linier) tes hanya satu arah. Tetapi dalam hal ini apa artinya memiliki temuan asimetris?
Misalnya, saya bisa membuat model tiga:
mBoth <- lmer(resp ~ center + nearest + (1|subject), REML = FALSE)
Lalu aku bisa anova.
anova(mCenter, mBoth)
anova(mNearest, mBoth)
Ini adil untuk dilakukan dan sekarang saya menemukan bahwa pusat menambah efek terdekat (perintah kedua) tetapi BIC benar-benar naik ketika terdekat ditambahkan ke pusat (koreksi untuk kekikiran rendah). Ini mengkonfirmasi apa yang dicurigai.
Tetapi apakah menemukan ini cukup? Dan apakah ini adil ketika pusat dan terdekat sangat berkorelasi?
Apakah ada cara yang lebih baik untuk membandingkan model secara analitis ketika ini bukan tentang menambah dan mengurangi variabel penjelas (derajat kebebasan)?