Christopher Stewart
February 18th, 2015
Developing Data Products (Coursera DS Specialization)
This Shiny application administers a quick and effective personality inventory.
Simply rate yourself using 10 items and the app calculates your score on five personality scales: Extroversion, Agreeableness, Conscientiousness, Emotional Stability and Openness.
The app also provides a reference point for these scales drawn from a sample of 1813 participants.
For each scale, the inventory measures a positive and a negative dimension using Likert-type scales.
Negative items have to be reverse-scored, accomplished in the app using the “recode” function from the 'car' package.
Scores on these two items are then added together and divided by two.
require(shiny); require(car)
observe({
input$rawscores
values$ext <- isolate ({
(input$extraverted +
recode(input$reserved, "1 = '7'; 2 = '6'; 3 = '5'; 4 = '4'; 5 = '3'; 6 = '2'; 7 = '1'"))/(2)
})
})
This measure is open domain, but also well-researched and normed. This bar chart shows mean scores for a sample of 1813 participants.