blackbox_transpose is a function that takes a matrix of perceptual data, such as
liberal-conservative rankings of various stimuli, and recovers the true
location of those stimuli in a spatial model. It differs from procedures
such as wnominate, which instead use preference data to estimate
candidate and citizen positions. The procedure here generalizes the technique
developed by John Aldrich and Richard McKelvey in 1977, which is also included
in this package as the aldmck function.
blackbox_transpose(data,missing=NULL,verbose=FALSE,dims=1,minscale)aldmck should print out detailed
output when scaling the data.blackbt.NNumber of respondents who ranked this stimulus.
coord1DLocation of the stimulus in the first dimension. If viewing
the results for a higher dimension, higher dimension results will appear as
coord2D, coord3D, etc.
R2The percent variance explained for the stimulus. This increases as
more dimensions are estimated.
cEstimate of the individual intercept.
w1Estimate of the individual slope. If viewing the results for a higher
dimension, higher dimension results will appear as w2, w3, etc.
R2The percent variance explained for the respondent. This increases as
more dimensions are estimated.
SSESum of squared errors.
SSE.explainedExplained sum of squared error.
percentPercentage of total variance explained.
SEStandard error of the estimate, with formula provided in the article cited below.
singularSingluar value for the dimension.
Keith Poole, Jeffrey Lewis, Howard Rosenthal, James Lo, Royce Carroll (2016) ``Recovering a Basic Space from Issue Scales in R.'' Journal of Statistical Software. 69(7), 1--21. doi:10.18637/jss.v069.i07
Keith T. Poole (1998) ``Recovering a Basic Space From a Set of Issue Scales.'' American Journal of Political Science. 42(3), 954-993.
### Loads and scales the Liberal-Conservative scales from the 1980 NES.
data(LC1980)
LCdat=LC1980[,-1] #Dump the column of self-placements
### This command conducts estimates, which we instead load using data()
#LC1980_bbt <- blackbox_transpose(LCdat,missing=c(0,8,9),dims=3,minscale=5,verbose=TRUE)
data(LC1980_bbt)
plot(LC1980_bbt)
par(ask=TRUE)
plotcdf.blackbt(LC1980_bbt)
summary(LC1980_bbt)
Run the code above in your browser using DataLab