appx_tbl1_olra.Rmd

---
title: "Ordinal Logistic Regression (Preliminary Analysis)"
output: html_notebook
---

```{r}
require(foreign)
require(ggplot2)
require(MASS)
require(rms)
require(Hmisc)
require(reshape2)
```

# First Stage
```{r}
dat1 <- read.dta("./data/olra_data/1st.dta")
m1 <- orm(gold ~ benjoyment + binterest + bsurprise + bfear + btension + bsatisfaction + safety + comfort + enjoyment + interest + surprise + fear + tension + satisfaction, data = dat1)
print(m1)
```

# Second Stage
```{r}
dat2 <- read.dta("./data/olra_data/2nd.dta")
m2 <- orm(gold ~ benjoyment + binterest + bsurprise + bfear + btension + bsatisfaction + safety + comfort + enjoyment + interest + surprise + fear + tension + satisfaction, data = dat2)
print(m2)
```

# Third Stage
```{r}
dat3 <- read.dta("./data/olra_data/3rd.dta")
m3 <- orm(gold ~ benjoyment + binterest + bsurprise + bfear + btension + bsatisfaction + safety + comfort + enjoyment + interest + surprise + fear + tension + satisfaction, data = dat3)
print(m3)
```