This package supports the book "Analyzing Spatial Models of Choice and Judgment with R". In its second edition, much of the R code has been streamlined. This package contains all of the data and functions to replicate the analyses in the book.
You can install using the install_github() function from the devtools package. The package requires compilation, so Windows users will have to install Rtools first. For Mac users, you need to make sure you have already installed latest GNU Fortran(gfortran 8.2) and Xcode Developer Tools. Please also make sure you have installed Clang (clang-8.0.0.pkg) if you have not updated R to 4.0.0 version. In order to use rjags package for the Bayesian framework analysis with asmcjr, both users need to install JAGS in advance. Therefore to install asmcjr in your R environment, the devtools package must also be installed and loaded in R beforehand.
- JAGS
- GNU Fortran(gfortran 8.2)
- Xcode Developer Tools 11
- Clang (clang-8.0.0) if you have not updated R to 4.0.0 version.
install.packages("devtools", dependencies=TRUE)
library(devtools)
devtools::install_github("yl17124/asmcjr")install.packages("devtools", dependencies=TRUE)
library(devtools)
devtools::install_github("yl17124/asmcjr")Example 1: Running Bayesian Aldrich-Mckelvey Scaling on the French module of the 2009 European Election Study
data(franceEES2009)
head(franceEES2009, n = 10)
library(asmcjr)
example_result_france <- aldmck(franceEES2009, respondent=1,
polarity=2,missing=c(77,88,89), verbose=FALSE)
str(example_result_france)
library(ggplot2)
example_result_graph <- ggplot.resphist(example_result_france, addStim=TRUE, weights="negative", xlab = "Left-Right") +
theme(legend.position="bottom", aspect.ratio=1) +
guides(shape = guide_legend(override.aes = list(size = 4),nrow=3)) +
labs(shape="Party", colour="Party")
print(example_result_graph)
library(readr)
legis_7th_Taiwan <- read_csv("https://raw.githubusercontent.com/yl17124/figures/master/legis_7th_Taiwan.csv")
head(legis_7th_Taiwan, n =10)
library(pscl)
pscl_df <- rollcall(legis_7th_Taiwan[3:ncol(legis_7th_Taiwan)],
yea = 1 , nay = 2, notInLegis = c(3,4,5), legis.names = legis_7th_Taiwan$legis.names,
vote.names = colnames(legis_7th_Taiwan[3:ncol(legis_7th_Taiwan)]),
desc="The 7th Taiwan Legislative Roll Call")
summary(pscl_df, verbose=FALSE)
library(ggpubr)
library(ggplot2)
library(wnominate)
result <- wnominate(pscl_df, ubeta = 15, uweights = 0.5,
dims = 2, minvotes = 20 , lop = 0.025, trials = 3, polarity = c("邱議瑩", "丁守中"), verbose = FALSE)
example_result_graph2 <- rownames_to_column(result$legislators, "legis.names") %>%
left_join(legis_7th_Taiwan[c("legis.names", "party")], by = "legis.names") %>%
mutate(coord2D.WEIGHT = coord2D*(result$weights[2])/(result$weights[1])) %>%
ggscatter(x = "coord1D", y = "coord2D.WEIGHT",
palette = "jco", shape = "party", point = FALSE,
ellipse = TRUE, ellipse.type = "confidence", size = 4) +
scale_y_continuous(limits = c(-0.5, 0.5) ) +
scale_x_continuous(limits = c(-1, 1)) +
geom_text(aes(label = factor(party), colour = party), size = 3,
family="Helvetica", face = "bold", show.legend = FALSE, vjust = -0.5) +
scale_colour_manual(values = c("#0000ff","#008964","#8b0017"), breaks = c("K", "D","N")) +
theme(legend.position = "none") +
labs(y = "2nd Dimension", x = "1st Dimension")
print(example_result_graph2)
If you have received those messages below from macOS or Windows, your device has not installed JAGS. Make sure you have installed JAGS-4 in your computer. The asmcjr has a dependency on rjags package which is just an interface to the JAGS library, and you need to install it to make them run with rjags on your device.
* checking for file ‘.../DESCRIPTION’ ... OK
* preparing ‘asmcjr’:
* checking DESCRIPTION meta-information ... OK
* cleaning src
* installing the package to process help pages
-----------------------------------
ERROR: dependency ‘rjags’ is not available for package ‘asmcjr’
* removing ‘/private/var/folders/24/8k48jl6d249_n_qfxwsl6xvm0000gn/T/RtmpJbGPGn/Rinst605c2279a152/asmcjr’
-----------------------------------
ERROR: package installation failed
* checking for file ‘.../DESCRIPTION’ ... OK
* preparing ‘asmcjr’:
* checking DESCRIPTION meta-information ... OK
* cleaning src
* installing the package to process help pages
-----------------------------------
* installing *source* package ‘asmcjr’ ...
** using staged installation
** libs
clang -mmacosx-version-min=10.13 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/usr/local/include -fPIC -Wall -g -O2 -c lbfgs_bu3.c -o lbfgs_bu3.o
clang -mmacosx-version-min=10.13 -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I/usr/local/include -fPIC -Wall -g -O2 -c registerDynamicSymbol.c -o registerDynamicSymbol.o
clang -mmacosx-version-min=10.13 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/usr/local/lib -o asmcjr.so lbfgs_bu3.o registerDynamicSymbol.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin18/8.2.0 -L/usr/local/gfortran/lib -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
ld: warning: directory not found for option '-L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin18/8.2.0'
installing to /private/var/folders/24/8k48jl6d249_n_qfxwsl6xvm0000gn/T/Rtmp0nXqch/Rinstc9785a00e5/00LOCK-asmcjr/00new/asmcjr/libs
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
##[error]Error: .onLoad failed in loadNamespace() for 'rjags', details:
call: dyn.load(file, DLLpath = DLLpath, ...)
error: unable to load shared object '/Users/runner/runners/2.169.0/work/_temp/Library/rjags/libs/rjags.so':
dlopen(/Users/runner/runners/2.169.0/work/_temp/Library/rjags/libs/rjags.so, 10): Library not loaded: /usr/local/lib/libjags.4.dylib
Referenced from: /Users/runner/runners/2.169.0/work/_temp/Library/rjags/libs/rjags.so
Reason: image not found
Execution halted
ERROR: lazy loading failed for package ‘asmcjr’
* removing ‘/private/var/folders/24/8k48jl6d249_n_qfxwsl6xvm0000gn/T/Rtmp0nXqch/Rinstc9785a00e5/asmcjr’
-----------------------------------
ERROR: package installation failed
##[error]Error in proc$get_built_file() : Build process failed
Calls: <Anonymous> ... build_package -> with_envvar -> force -> <Anonymous>
Execution halted
##[error]Process completed with exit code 1.
* checking for file 'D:\a\asmcjr\asmcjr/DESCRIPTION' ... OK
* preparing 'asmcjr':
* checking DESCRIPTION meta-information ... OK
* cleaning src
* installing the package to process help pages
-----------------------------------
* installing *source* package 'asmcjr' ...
** using staged installation
** libs
"c:/rtools40/mingw64/bin/"gcc -I"C:/R/include" -DNDEBUG -O2 -Wall -std=gnu99 -mfpmath=sse -msse2 -mstackrealign -c lbfgs_bu3.c -o lbfgs_bu3.o
"c:/rtools40/mingw64/bin/"gcc -I"C:/R/include" -DNDEBUG -O2 -Wall -std=gnu99 -mfpmath=sse -msse2 -mstackrealign -c registerDynamicSymbol.c -o registerDynamicSymbol.o
c:/rtools40/mingw64/bin/gcc -shared -s -static-libgcc -o asmcjr.dll tmp.def lbfgs_bu3.o registerDynamicSymbol.o -LC:/R/bin/x64 -lRlapack -LC:/R/bin/x64 -lRblas -lgfortran -lm -lquadmath -LC:/R/bin/x64 -lR
installing to C:/Users/RUNNER~1/AppData/Local/Temp/Rtmpeqrx0a/Rinst15f096e2e18/00LOCK-asmcjr/00new/asmcjr/libs/x64
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
##[error]Error: .onLoad failed in loadNamespace() for 'rjags', details:
call: fun(libname, pkgname)
error: Failed to locate any version of JAGS version 4
The rjags package is just an interface to the JAGS library
Make sure you have installed JAGS-4.x.y.exe (for any x >=0, y>=0) from
http://www.sourceforge.net/projects/mcmc-jags/files
Execution halted
ERROR: lazy loading failed for package 'asmcjr'
* removing 'C:/Users/RUNNER~1/AppData/Local/Temp/Rtmpeqrx0a/Rinst15f096e2e18/asmcjr'
-----------------------------------
ERROR: package installation failed
##[error]Error in proc$get_built_file() : Build process failed
Calls: <Anonymous> ... build_package -> with_envvar -> force -> <Anonymous>
Execution halted
##[error]Process completed with exit code 1.
For citation from this book, run citation("asmcjr"). For more learning resources and those who want to learn how to use computational methods to understand the latent properties of your data, please join the course Scaling Methods for Social Science at 2020 ESSEX SUMMER SCHOOL.