"R ltm()"의 두 판 사이의 차이

 
(같은 사용자의 중간 판 하나는 보이지 않습니다)
4번째 줄: 4번째 줄:
<syntaxhighlight lang='r' run hideerr>
<syntaxhighlight lang='r' run hideerr>
library(ltm)
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/drizopoulos/ltm/data/LSAT.csv")
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/LSAT.csv")
model <- ltm(df ~ z1, IRT.param = TRUE)
model <- ltm(df ~ z1, IRT.param = TRUE)
coef(model)
coef(model)
10번째 줄: 10번째 줄:
<syntaxhighlight lang='r' run hideerr>
<syntaxhighlight lang='r' run hideerr>
library(ltm)
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/drizopoulos/ltm/data/WIRS.csv")
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/WIRS.csv")
model <- ltm(df ~ z1, constr = rbind(c(1, 1, 1), c(6, 2, -0.5))
model <- ltm(df ~ z1, constr = rbind(c(1, 1, 1), c(6, 2, -0.5))
coef(model)
coef(model)
17번째 줄: 17번째 줄:
## Two-factor model with an interaction term
## Two-factor model with an interaction term
library(ltm)
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/drizopoulos/ltm/data/WIRS.csv")
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/WIRS.csv")
model <- ltm(df ~ z1 * z2)
model <- ltm(df ~ z1 * z2)
coef(model)
coef(model)
24번째 줄: 24번째 줄:
## One-factor and a quadratic term
## One-factor and a quadratic term
library(ltm)
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/drizopoulos/ltm/data/Mobility.csv")
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/Mobility.csv")
model <- ltm(df ~ z1 + I(z1^2))
model <- ltm(df ~ z1 + I(z1^2))
coef(model)
coef(model)
31번째 줄: 31번째 줄:
## The two-parameter logistic model with 20 quadrature points and 20 EM iterations
## The two-parameter logistic model with 20 quadrature points and 20 EM iterations
library(ltm)
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/drizopoulos/ltm/data/Abortion.csv")
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/Abortion.csv")
model <- ltm(df ~ z1, control = list(GHk = 20, iter.em = 20))
model <- ltm(df ~ z1, control = list(GHk = 20, iter.em = 20))
coef(model)
coef(model)
38번째 줄: 38번째 줄:
==같이 보기==
==같이 보기==
* [[R ltm]]
* [[R ltm]]
* [[R 문항반응이론 1모수 모형]]
* [[R 문항반응이론 2모수 모형]]
* [[R 문항반응이론 3모수 모형]]


==참고==
==참고==

2021년 10월 2일 (토) 18:53 기준 최신판

1 개요[ | ]

R ltm()
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/LSAT.csv")
model <- ltm(df ~ z1, IRT.param = TRUE)
coef(model)
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/WIRS.csv")
model <- ltm(df ~ z1, constr = rbind(c(1, 1, 1), c(6, 2, -0.5))
coef(model)
## Two-factor model with an interaction term
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/WIRS.csv")
model <- ltm(df ~ z1 * z2)
coef(model)
## One-factor and a quadratic term
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/Mobility.csv")
model <- ltm(df ~ z1 + I(z1^2))
coef(model)
## The two-parameter logistic model with 20 quadrature points and 20 EM iterations
library(ltm)
df <- read.csv("https://github.com/jmnote/zdata/raw/master/github.com/cran/ltm/data/Abortion.csv")
model <- ltm(df ~ z1, control = list(GHk = 20, iter.em = 20))
coef(model)

2 같이 보기[ | ]

3 참고[ | ]

문서 댓글 ({{ doc_comments.length }})
{{ comment.name }} {{ comment.created | snstime }}