"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)

2021년 10월 1일 (금) 18:10 판

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 }}