### Loads issue scales from the 1980 ANES.
data(Issues1980)
Issues1980[Issues1980[,"abortion1"]==7,"abortion1"] <- 8 #missing recode
Issues1980[Issues1980[,"abortion2"]==7,"abortion2"] <- 8 #missing recode
# \donttest{
Issues1980_bb <- blackbox(Issues1980, missing=c(0,8,9), verbose=FALSE,
dims=3, minscale=8)
# }
### 'Issues1980_bb' can be retrieved quickly with:
data(Issues1980_bb)
summary(Issues1980_bb)
plot(Issues1980_bb)
Run the code above in your browser using DataLab