R 문항특성곡선 그리기

Jmnote (토론 | 기여)님의 2021년 10월 2일 (토) 21:34 판 (→‎1개 그리기)

1 개요

R 문항특성곡선 그리기

2 1개 그리기

p.a <- 1
p.b <- 0
p.c <- 0.25

D <- 1.702
f <- function(x) {p.c+(1-p.c)/(1+exp(-p.a*D*(x-p.b)))}
x <- seq(-4, 4, .05)
plot(x, f(x), type='l', ylim=c(0,1),
     main="Item Characteristic Curves",
     xlab="Ability",
     ylab="Probability")

3 여러 개 그리기

p.a <- 1
p.b <- 0
p.c <- 0.25

D <- 1.702
f <- function(x) {p.c+(1-p.c)/(1+exp(-p.a*D*(x-p.b)))}
x <- seq(-4, 4, .05)
plot(x, f(x), type='l', ylim=c(0,1),
     main="Item Characteristic Curves",
     xlab="Ability",
     ylab="Probability")

4 같이 보기

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