---
title: "371.sapa"
author: "William Revelle"
date: "5/16/2018"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
options(width=100)
```

This is a short introduction to the SAPA data set.
The full list of personality items may be found in the itemInfo object.  Here I show the names of the 45 demographic variables.

```{r}
library(psych) #make psych active
```
With your browser, go to the file 
https://personality-project.org/courses/371/sapa.dictionary.rda  
and move it to your computer.

Then, use the read.file function to find it and load it.
fn <- file.choose()
read.file(fn)  #this gets the dictionary
```{r}
fn <- "/Users/WR/Downloads/sapa.dictionary.rda"
read.file(fn)
dim(ItemInfo)
headTail(ItemInfo[1:5]) #this is just the first and last few lines
```
I am now going to get the data and show the first 50 columns

```{r}
fn1 <- "/Users/WR/Box Sync/pmc_folder/SAPA items/latest sapa/SAPAdata18aug2010thru7feb2017.rdata"
read.file(fn1)
ls()
sapa <- SAPAdata18aug2010thru7feb2017
colnames(sapa)[1:45]

#show the kind of data that we have
headTail(sapa[1:45])