Create mantel_analysis.R