Extra Material - Plotting

This requires the packages manipulate, shiny and devtools.

It also requires shinyApp()

## setting CRAN mirror
local({r <- getOption("repos")
       r["CRAN"] <- "http://cran.r-project.org" 
       options(repos=r)
})
devtools::install_github("rstudio/shinyapps")
shinyapps::deployApp()

fancyMe=function(var){ xyplot(EE~psy_data[[var]],data=psy_data,xlab=var) }

choices = c(names(psy_data)) names(choices) = names(psy_data) choices = as.list(choices)

manipulate(fancyMe(var),var=picker(choices))

References

Ackerman, R. A., Witt, E. A., Donnellan, M. B., Trzesniewski, K. H., Robins, R. W., & Kashy, D. A. (2011). What does the Narcissistic Personality Inventory really measure? Assessment, 18, 67-87.

Gosling, S. D., Rentfrow, P. J., & Swann, W. B., Jr. (2003). A very brief measure of the Big Five personality domains. Journal of Research in Personality, 37, 504-528.

Raskin, R. N., & Hall, C. S. (1979). A narcissistc personality inventory. Psychological reports, 45, 590.

Rossman, A. J., & Chance, B. L. (2008). Workshop statistics: Discovery with data (3rd Ed.). Hoboken, NJ: Wiley.