Political Compass in the Random World
2019-09-24
Chapter 1 Testing the Political Compass
This is to test how the Political Compass Test performs if it is supplied with randomly selected choices. Theoretically, it should gives us zero on the coordinate axis.
rm(list = ls())
# Loading the Required packages
require(data.table)
require(readstata13)
require(parallel)
require(lubridate)
require(readxl)
require(pbapply)
require(foreach)
require(vtable)# picking the random sample and running the simulations.
choiceSet <- c(1, 2, 3, 4)
simul1 <- lapply(1:1e+05, function(i) {
as.data.table(matrix(sample(choiceSet, 62, replace = TRUE),
ncol = 62))
})
simul1 <- rbindlist(simul1)
simul1## V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19
## 1: 3 2 1 2 3 3 4 1 3 4 3 4 4 4 1 2 1 4 1
## 2: 1 4 2 3 4 1 2 1 2 2 2 3 4 1 3 2 4 2 1
## 3: 4 3 4 4 1 3 2 1 1 3 2 2 3 3 1 4 4 3 4
## 4: 1 1 4 1 4 2 4 4 4 2 4 2 2 2 4 3 4 3 4
## 5: 1 4 1 4 3 2 4 1 4 3 1 3 3 3 4 3 4 2 1
## ---
## 99996: 2 4 1 1 3 3 3 1 2 3 4 2 1 3 3 2 2 1 3
## 99997: 3 4 3 2 4 2 3 1 3 3 4 4 4 4 3 2 4 4 2
## 99998: 3 2 2 2 1 2 2 3 2 3 1 1 3 1 1 4 4 4 4
## 99999: 3 2 4 4 3 4 3 2 3 4 1 3 3 3 2 3 1 2 4
## 100000: 3 1 2 3 2 3 3 2 4 4 2 1 1 1 4 4 3 3 2
## V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35
## 1: 3 4 1 1 4 3 3 1 2 1 3 3 4 3 2 2
## 2: 4 4 4 2 1 1 3 3 2 1 2 2 2 4 3 1
## 3: 3 3 4 3 2 3 2 2 2 4 3 4 3 1 3 3
## 4: 1 4 3 3 1 1 4 1 4 1 1 4 4 1 4 1
## 5: 3 2 2 4 3 2 3 1 4 4 4 3 3 2 4 3
## ---
## 99996: 1 3 4 3 3 2 3 1 4 4 4 3 4 4 4 2
## 99997: 1 3 4 4 4 2 1 1 4 3 2 4 3 2 3 3
## 99998: 1 2 2 2 1 4 4 3 1 3 4 2 1 3 3 4
## 99999: 2 1 3 1 2 2 3 4 3 2 3 4 3 2 2 1
## 100000: 1 4 2 1 4 1 1 4 2 4 1 2 1 1 3 4
## V36 V37 V38 V39 V40 V41 V42 V43 V44 V45 V46 V47 V48 V49 V50 V51
## 1: 1 1 1 1 2 1 2 4 2 2 3 4 4 1 3 4
## 2: 1 2 3 4 3 4 4 2 1 4 4 1 3 1 3 4
## 3: 1 3 2 3 2 2 1 1 3 1 1 3 4 2 2 4
## 4: 1 1 2 4 4 4 2 1 1 2 3 2 3 3 4 2
## 5: 4 4 2 1 4 1 3 2 4 1 2 4 3 3 2 3
## ---
## 99996: 4 4 2 2 3 1 4 3 4 1 2 4 4 1 4 2
## 99997: 1 4 4 4 2 4 4 2 2 3 1 1 2 2 1 3
## 99998: 4 3 3 2 2 2 1 4 2 3 4 2 3 1 1 2
## 99999: 1 2 4 4 1 4 3 1 1 2 3 1 2 4 4 3
## 100000: 3 2 3 2 2 2 4 2 1 1 2 4 4 3 3 1
## V52 V53 V54 V55 V56 V57 V58 V59 V60 V61 V62
## 1: 4 4 4 2 1 1 1 2 1 1 4
## 2: 2 1 2 3 2 3 2 4 3 3 1
## 3: 3 2 1 2 2 3 4 1 1 3 1
## 4: 2 4 3 1 1 4 3 1 1 3 1
## 5: 1 2 1 1 3 3 1 1 1 1 4
## ---
## 99996: 3 2 4 2 1 1 4 2 4 2 1
## 99997: 2 1 2 3 2 2 3 3 3 1 2
## 99998: 3 1 2 3 4 4 2 1 4 4 3
## 99999: 2 3 4 2 3 3 2 4 3 1 4
## 100000: 1 2 2 4 3 1 2 4 2 4 2# finding the nearest integer value for each of the 62
# questions
simul1 <- simul1[, lapply(.SD, function(x) (round(mean(x), 0)))]I will insert the image of the result from the above values inserted in the Political Compass Test. Let’s see what happens.
Results can be found at https://www.politicalcompass.org/yourpoliticalcompass?ec=-1.63&soc=-0.87. Although the resulting coordinates are very close to the origin, it looks like the test is made to elicit responses in the third quadrant. I also attach the photo of the result below.
Thanks for stopping by. Have a nice day.