diff --git a/Data/Posts/players.csv b/R Scripts/Posts/Value Gap analysis/Data/players.csv
similarity index 100%
rename from Data/Posts/players.csv
rename to R Scripts/Posts/Value Gap analysis/Data/players.csv
diff --git a/Data/Posts/playerteams.csv b/R Scripts/Posts/Value Gap analysis/Data/playerteams.csv
similarity index 100%
rename from Data/Posts/playerteams.csv
rename to R Scripts/Posts/Value Gap analysis/Data/playerteams.csv
diff --git a/Data/Posts/qbprojections.csv b/R Scripts/Posts/Value Gap analysis/Data/qbprojections.csv
similarity index 100%
rename from Data/Posts/qbprojections.csv
rename to R Scripts/Posts/Value Gap analysis/Data/qbprojections.csv
diff --git a/Data/Posts/rbprojections.csv b/R Scripts/Posts/Value Gap analysis/Data/rbprojections.csv
similarity index 100%
rename from Data/Posts/rbprojections.csv
rename to R Scripts/Posts/Value Gap analysis/Data/rbprojections.csv
diff --git a/Data/Posts/teprojections.csv b/R Scripts/Posts/Value Gap analysis/Data/teprojections.csv
similarity index 100%
rename from Data/Posts/teprojections.csv
rename to R Scripts/Posts/Value Gap analysis/Data/teprojections.csv
diff --git a/Data/Posts/wrprojections.csv b/R Scripts/Posts/Value Gap analysis/Data/wrprojections.csv
similarity index 100%
rename from Data/Posts/wrprojections.csv
rename to R Scripts/Posts/Value Gap analysis/Data/wrprojections.csv
diff --git a/R Scripts/Posts/Value Gap analysis/Figures/passCompDiffernce.png b/R Scripts/Posts/Value Gap analysis/Figures/passCompDiffernce.png
new file mode 100644
index 0000000..8d29e0c
Binary files /dev/null and b/R Scripts/Posts/Value Gap analysis/Figures/passCompDiffernce.png differ
diff --git a/R Scripts/Posts/Value Gap analysis/Figures/passTdDiffernce.png b/R Scripts/Posts/Value Gap analysis/Figures/passTdDiffernce.png
new file mode 100644
index 0000000..c8930fa
Binary files /dev/null and b/R Scripts/Posts/Value Gap analysis/Figures/passTdDiffernce.png differ
diff --git a/R Scripts/Posts/Value Gap analysis/Figures/passYdsDiffernce.png b/R Scripts/Posts/Value Gap analysis/Figures/passYdsDiffernce.png
new file mode 100644
index 0000000..fd529fe
Binary files /dev/null and b/R Scripts/Posts/Value Gap analysis/Figures/passYdsDiffernce.png differ
diff --git a/R Scripts/Posts/balanceAnalysis.R b/R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R
similarity index 84%
rename from R Scripts/Posts/balanceAnalysis.R
rename to R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R
index 54d5c69..aac4c41 100644
--- a/R Scripts/Posts/balanceAnalysis.R	
+++ b/R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R	
@@ -7,13 +7,13 @@ library(data.table)
 library(ggplot2)
 
 ## Read the data
-qbProjections <- data.table(read.csv("Data/Posts/qbprojections.csv", stringsAsFactors = FALSE))
-rbProjections <- data.table(read.csv("Data/Posts/rbprojections.csv", stringsAsFactors = FALSE))
-wrProjections <- data.table(read.csv("Data/Posts/wrprojections.csv", stringsAsFactors = FALSE))
-teProjections <- data.table(read.csv("Data/Posts/teprojections.csv", stringsAsFactors = FALSE))
+qbProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/qbprojections.csv", stringsAsFactors = FALSE))
+rbProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/rbprojections.csv", stringsAsFactors = FALSE))
+wrProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/wrprojections.csv", stringsAsFactors = FALSE))
+teProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/teprojections.csv", stringsAsFactors = FALSE))
 
-playerTeams <- data.table(read.csv("Data/Posts/playerteams.csv", stringsAsFactors = FALSE))
-players <- data.table(read.csv("Data/Posts/players.csv", stringsAsFactors = FALSE))
+playerTeams <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/playerteams.csv", stringsAsFactors = FALSE))
+players <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/players.csv", stringsAsFactors = FALSE))
 
 ## Merge team information
 qbProjections <- merge(qbProjections, playerTeams[, c("playerId", "team"), with = FALSE], by = "playerId")
@@ -75,7 +75,7 @@ tblData <- tblData[team != "FA" ]
 tblData <- tblData[,team := reorder(team, passYdsDiff, function(x)-x)]
 ggplot(tblData, aes(x =team , y=passYdsDiff, fill = passYdsDiff > 0),  position = 'dodge' ) + 
     geom_bar(stat = "identity") + xlab("Team") + ylab("PassYds - RecYds") +scale_fill_discrete(guide = 'none') + ggtitle("Pass and Receiving Yard difference")
-ggsave("Figures/passYdsDiffernce.png", width = 900/72, height = 545/72, units = "in")
+ggsave("R Scripts/Posts/Value Gap analysis/Figures/passYdsDiffernce.png", width = 900/72, height = 545/72, units = "in")
 
 ## Generate bar plot for receiving td difference
 tdData <-  data.table(aggregate(teamData$passTdDiff, by = list(teamData$team), FUN = mean, data = teamData))
@@ -85,7 +85,7 @@ tdData <- tdData[,team := reorder(team, passTdDiff, function(x)-x)]
 
 ggplot(tdData, aes(x =team , y=passTdDiff, fill = passTdDiff > 0),  position = 'dodge' ) + 
     geom_bar(stat = "identity") + xlab("Team") + ylab("PassTds - RecTds") +scale_fill_discrete(guide = 'none') + ggtitle("Pass and Receiving Touchdown difference")
-ggsave("Figures/passTdDiffernce.png",  width = 900/72, height = 545/72, units = "in")
+ggsave("R Scripts/Posts/Value Gap analysis/Figures/passTdDiffernce.png",  width = 900/72, height = 545/72, units = "in")
 
 ## Generate bar plot for reception difference
 recData <-  data.table(aggregate(teamData$passRecDiff, by = list(teamData$team), FUN = mean, data = teamData))
@@ -94,5 +94,5 @@ recData <- recData[team != "FA" ]
 recData <- recData[,team := reorder(team, passRecDiff, function(x)-x)]
 ggplot(recData, aes(x =team , y=passRecDiff, fill = passRecDiff > 0),  position = 'dodge' ) + 
     geom_bar(stat = "identity") + xlab("Team") + ylab("Completions - Recepetions") +scale_fill_discrete(guide = 'none') + ggtitle("Pass Completions and Receptions")
-ggsave("Figures/passCompDiffernce.png",  width = 900/72, height = 545/72, units = "in")
+ggsave("R Scripts/Posts/Value Gap analysis/Figures/passCompDiffernce.png",  width = 900/72, height = 545/72, units = "in")