finished data_wranging.R and added multivariate_tests.R