質問編集履歴
1
ソースコードの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,6 +26,8 @@
|
|
|
26
26
|
|
|
27
27
|
```ここに言語名を入力
|
|
28
28
|
|
|
29
|
+
> library(irtoys)
|
|
30
|
+
|
|
29
31
|
> u <- read.csv("2018ALLdatasetAVGsituation.csv",header=FALSE,stringsAsFactors=F)
|
|
30
32
|
|
|
31
33
|
> head(u)
|
|
@@ -158,6 +160,48 @@
|
|
|
158
160
|
|
|
159
161
|
|
|
160
162
|
|
|
163
|
+
|
|
164
|
+
|
|
165
|
+
・整数だけのデータフレームを作った場合
|
|
166
|
+
|
|
167
|
+
> library(irtoys)
|
|
168
|
+
|
|
169
|
+
> abc <- c(1,1,1,1,1)
|
|
170
|
+
|
|
171
|
+
> def <- c(0,1,0,0,1)
|
|
172
|
+
|
|
173
|
+
> (u2 <- data.frame(ABC=abc, DEF=def))
|
|
174
|
+
|
|
175
|
+
ABC DEF
|
|
176
|
+
|
|
177
|
+
1 1 0
|
|
178
|
+
|
|
179
|
+
2 1 1
|
|
180
|
+
|
|
181
|
+
3 1 0
|
|
182
|
+
|
|
183
|
+
4 1 0
|
|
184
|
+
|
|
185
|
+
5 1 1
|
|
186
|
+
|
|
187
|
+
> dim(u2)
|
|
188
|
+
|
|
189
|
+
[1] 5 2
|
|
190
|
+
|
|
191
|
+
> ip <- est(resp=u2,model="2PL",engine="icl",
|
|
192
|
+
|
|
193
|
+
+ a.prior=FALSE,b.prior=FALSE,c.prior=FALSE,
|
|
194
|
+
|
|
195
|
+
+ run.name="vocab_2PL")
|
|
196
|
+
|
|
197
|
+
Read 0 items
|
|
198
|
+
|
|
199
|
+
> u2.mle <- mlebme(resp=u2,ip=ip$est,method="ML")
|
|
200
|
+
|
|
201
|
+
|
|
202
|
+
|
|
203
|
+
|
|
204
|
+
|
|
161
205
|
```
|
|
162
206
|
|
|
163
207
|
|