Saya dapat menyarankan Anda setidaknya dua paket yang memungkinkan untuk melakukan tugas-tugas ini: psych ( score.items
) dan ltm ( descript
). The CTT paket sepertinya juga untuk proses MCQ tapi saya tidak punya pengalaman dengan itu. Informasi lebih lanjut dapat ditemukan di situs web W Revelle, The Personality Project , esp. halaman yang didedikasikan untuk psikometrik dengan R yang menyediakan petunjuk langkah demi langkah untuk mengimpor, menganalisis, dan melaporkan data. Juga, Tampilan Tugas CRAN tentang Psikometri mencakup banyak sumber daya tambahan.
Seperti dijelaskan dalam tautan Anda, MC adalah singkatan dari "Rata-rata total skor mentah dari orang-orang yang menjawab item dengan respons yang benar", dan MI untuk "Rata-rata total skor orang-orang yang tidak menjawab item dengan respons yang benar.". Korelasi titik-biserial (R (IT)) juga tersedia dalam ltm
paket ( biserial.cor
). Ini pada dasarnya merupakan indikator kekuatan diskriminasi item (karena itu adalah korelasi item dan skor total), dan terkait dengan parameter diskriminasi model 2-PL IRT atau pemuatan faktor dalam Analisis Faktor.
Jika Anda benar-benar ingin mereproduksi tabel yang Anda tampilkan, saya kira Anda harus membungkus beberapa kode ini dengan kode khusus, setidaknya untuk menghasilkan jenis tabel yang sama. Saya telah membuat contoh cepat dan kotor yang mereproduksi meja Anda:
dat <- replicate(10, sample(LETTERS[1:4], 100, rep=TRUE))
dat[3,2] <- dat[67,5] <- NA
itan(dat)
P R MC MI NC OMIT A B C D
[1,] 0.23 -0.222 2.870 2.169 23 0 23 22 32 23
[2,] 0.32 -0.378 3.062 1.985 32 1 32 20 14 33
[3,] 0.18 -0.197 2.889 2.207 18 0 18 33 22 27
[4,] 0.33 -0.467 3.212 1.896 33 0 33 18 29 20
[5,] 0.27 -0.355 3.111 2.056 27 1 27 23 23 26
[6,] 0.17 -0.269 3.118 2.169 17 0 17 25 25 33
[7,] 0.21 -0.260 3.000 2.152 21 0 21 24 25 30
[8,] 0.24 -0.337 3.125 2.079 24 0 24 32 22 22
[9,] 0.13 -0.218 3.077 2.218 13 0 13 29 33 25
[10,] 0.25 -0.379 3.200 2.040 25 0 25 25 31 19
Karena ini adalah respons acak, korelasi biserial dan kesulitan item tidak terlalu berarti (kecuali untuk memeriksa bahwa data benar-benar acak :). Juga, perlu memeriksa kemungkinan kesalahan, karena saya membuat konsep fungsi R dalam 10 '...
freq.resp <- raw.resp/apply(raw.resp, 1, sum, na.rm=T)
. Kesalahannya adalah "redup (X) harus memiliki panjang positif" sedangkan redup (raw.resp) adalah NULL. Mungkinkah karena data saya tidak memiliki semua opsi dengan frekuensi positif, tabel saya tidak semua sama panjang? Bagaimana saya bisa mengisi nol dalamtable
doa saya ?freq.resp
akan menimbulkan kesalahan. Saya akan memperbaiki kode (besok), ini juga akan menunjukkan kepada Anda bagaimana menggabungkan tabel tidak teratur dengan sedikit kode.Fungsi paket psik alpha menghasilkan apa yang Anda cari.
Untuk mengekspor ini, simpan objek dan gunakan fungsi xtable untuk menghasilkan markup LaTeX, yang kemudian dapat diformat oleh editor LaTeX.
sumber
psych::alpha
melakukan pekerjaan yang lebih baik daripadascore.items
, terima kasih telah menambahkan itu. Saya tidak pernah ingat yang harus saya gunakan!