From 0a09f7a2683f866a1848e36f550393db09d32fa0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gabriel=20Valen=C3=A7a?=
 <69808511+valenca13@users.noreply.github.com>
Date: Wed, 19 Jun 2024 17:27:41 +0100
Subject: [PATCH] Delete cluster_analysis.R

---
 code/cluster_analysis.R | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 code/cluster_analysis.R

diff --git a/code/cluster_analysis.R b/code/cluster_analysis.R
deleted file mode 100644
index 486f56c..0000000
--- a/code/cluster_analysis.R
+++ /dev/null
@@ -1,27 +0,0 @@
-# Sensitivity analysis
-
-library(readxl)
-data <- read_excel("SensitivityAnalysis_Results.xlsx", skip = 2)
-
-data <- data[,-c(1,3:24)]
-
-df <- data.frame(data)
-
-#Degree 
-
-library(tidyverse)
-df_degree <- df %>%
-  select(CITY, min_degree, q1_degree, median_degree, q3_degree, max_degree)
-
-#Reshape database
-
-long_degree <- pivot_longer(df_degree, cols = c(min_degree, q1_degree, median_degree, q3_degree, max_degree), names_to = "variable", values_to = "value")
-
-ggplot(long_degree, aes(x = value, y=CITY)) +
-  geom_boxplot()
-
-
-
-
-
-