diff --git a/R/documentReadabilityAnalysis.R b/R/documentReadabilityAnalysis.R
index 50f7220..373c0e6 100644
--- a/R/documentReadabilityAnalysis.R
+++ b/R/documentReadabilityAnalysis.R
@@ -13,11 +13,12 @@ head(readme_df)
 aggregate(readme_df[, 3:10], list(readme_df$subdir), median)
 #getting basic stats for the readme readability 
 median(readme_df$flesch_reading_ease)
+median(readme_df$linsear_write_formula)
 median(readme_df$mcalpine_eflaw)
 median(readme_df$reading_time)
 # establishing the color scheme 
 subdirColors <-
-  setNames( c('red', 'forestgreen', 'blue')
+  setNames( c('firebrick1', 'forestgreen', 'cornflowerblue')
             , levels(contributing_df$subdir)  )
 
 #plotting linsear scoring
@@ -53,6 +54,7 @@ aggregate(contributing_df[, 3:10], list(contributing_df$subdir), median)
 median(contributing_df$flesch_reading_ease)
 median(contributing_df$mcalpine_eflaw)
 median(contributing_df$reading_time)
+median(contributing_df$linsear_write_formula)
 # plotting contributing linsear writing formula
 contributing_linsear_plot <- ggplot(contributing_df, aes(x=linsear_write_formula, group=as.factor(subdir))) + 
   geom_density(aes(color = as.factor(subdir), fill=as.factor(subdir)), alpha=0.2, position="identity") +
diff --git a/R/draft_readability_analysis_plot.png b/R/draft_readability_analysis_plot.png
index 3cb8192..f900f25 100644
Binary files a/R/draft_readability_analysis_plot.png and b/R/draft_readability_analysis_plot.png differ