generate_corrl_data.Rmd

```{r}
library(MASS)
covmat <- matrix(c(1.0,   0.2,   0.6, 
                   0.2,   1.0,  -0.5, 
                   0.6,  -0.5,   1.0), nrow=3) # the true cov matrix for my data
data <- mvrnorm(100, mu=c(0,0,0), Sigma=covmat) # generate random data that match that cov matrix
colnames(data) <- c("X1", "X2", "X3")
head(data)

library(knitr)
kable(round(cor(data), 3), caption = "Table 1: Correlation Matrix")
library(GGally)
ggpairs(data)
```