質問編集履歴
1
ソースコードの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,6 +12,7 @@
|
|
|
12
12
|
### 該当のソースコード
|
|
13
13
|
|
|
14
14
|
```ここに言語名を入力
|
|
15
|
+
> library(irtoys)
|
|
15
16
|
> u <- read.csv("2018ALLdatasetAVGsituation.csv",header=FALSE,stringsAsFactors=F)
|
|
16
17
|
> head(u)
|
|
17
18
|
V1 V2 V3 V4
|
|
@@ -78,6 +79,27 @@
|
|
|
78
79
|
mlebme(resp = u2, ip = ip$est, method = "ML") でエラー:
|
|
79
80
|
responses - item parameters mismatch
|
|
80
81
|
|
|
82
|
+
|
|
83
|
+
・整数だけのデータフレームを作った場合
|
|
84
|
+
> library(irtoys)
|
|
85
|
+
> abc <- c(1,1,1,1,1)
|
|
86
|
+
> def <- c(0,1,0,0,1)
|
|
87
|
+
> (u2 <- data.frame(ABC=abc, DEF=def))
|
|
88
|
+
ABC DEF
|
|
89
|
+
1 1 0
|
|
90
|
+
2 1 1
|
|
91
|
+
3 1 0
|
|
92
|
+
4 1 0
|
|
93
|
+
5 1 1
|
|
94
|
+
> dim(u2)
|
|
95
|
+
[1] 5 2
|
|
96
|
+
> ip <- est(resp=u2,model="2PL",engine="icl",
|
|
97
|
+
+ a.prior=FALSE,b.prior=FALSE,c.prior=FALSE,
|
|
98
|
+
+ run.name="vocab_2PL")
|
|
99
|
+
Read 0 items
|
|
100
|
+
> u2.mle <- mlebme(resp=u2,ip=ip$est,method="ML")
|
|
101
|
+
|
|
102
|
+
|
|
81
103
|
```
|
|
82
104
|
|
|
83
105
|
### 試したこと
|