편집자 Jmnote
로그인하시면 댓글을 쓸 수 있습니다.
library(ltm)
set.seed(29)
df <- data.frame(rmvlogis(20, cbind(seq(-1, 1, 1), 1)))
df
coef(ltm(df ~ z1))
df$X1[1] <- NA
df
coef(ltm(df ~ z1))
df$X1[seq(1,20,3)] <- NA
df$X2[seq(2,20,3)] <- NA
df$X3[seq(3,20,3)] <- NA
df
coef(ltm(df ~ z1))
df$X1[seq(2,20,3)] <- NA
df
coef(ltm(df ~ z1))