from SAS to R

haven_example.rmd

---
title: "Importing SAS data into R"
---

## Get the data

```{r}
# Just download it once
if(!file.exists("medical.sas7bdat")) {
    download.file("http://www.principlesofeconometrics.com/sas/medical.sas7bdat", 
                  destfile = "medical.sas7bdat")
  }
```

## Load the package and read the data with read_sas()

```{r}
library(haven)
medical <- read_sas("medical.sas7bdat")
```

## Check the data

```{r}
dim(medical)
colnames(medical)
attributes(medical)$label
```

## Peek at it

```{r}
head(medical)
```

## See the labels of one column

```{r}
attr(medical$ID, "label")
```

## See the labels of all columns

```{r}
for(i in 1:ncol(medical)){
  this_column <- paste(colnames(medical)[i],
                       attr(medical[[i]], "label"))
  message(this_column)
}
```