Create Analyze_data.R