我是R的初学者,并尝试使用以下代码。 但是,“数据集”SAT12“未找到”出现 感谢您提前回复
data("SAT12")
data <- key2binary(SAT12, key = c(1, 4, 5, 2, 3, 1, 2, 1, 3, 1, 2, 4, 2,
1, 5, 3, 4, 4, 1, 4, 3, 3, 4, 1, 3, 5,
1, 3, 1, 5, 4, 5))
specific <- c(2, 3, 2, 3, 3, 2, 1, 2, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 3,
3, 1, 1, 3, 1, 3, 3, 1, 3, 2, 3, 1, 2)
guess <- rep(0.1, 32)
b_mod1 <- bfactor(data, specific, guess)
coef(b_mod1)