数据集＆＃34; SAT12＆＃34;未找到

Question

我是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)