diff --git a/2. Web Application/Capstone Presentation.Rmd b/2. Web Application/R Presentation/Capstone Presentation.Rmd
similarity index 100%
rename from 2. Web Application/Capstone Presentation.Rmd
rename to 2. Web Application/R Presentation/Capstone Presentation.Rmd
diff --git a/2. Web Application/ngram-barcharts.png b/2. Web Application/R Presentation/ngram-barcharts.png
similarity index 100%
rename from 2. Web Application/ngram-barcharts.png
rename to 2. Web Application/R Presentation/ngram-barcharts.png
diff --git a/2. Web Application/wordcloud.png b/2. Web Application/R Presentation/wordcloud.png
similarity index 100%
rename from 2. Web Application/wordcloud.png
rename to 2. Web Application/R Presentation/wordcloud.png
diff --git a/2. Web Application/Text_Prediction_Using_N-grams/app.R b/2. Web Application/R Shiny App/app.R
similarity index 94%
rename from 2. Web Application/Text_Prediction_Using_N-grams/app.R
rename to 2. Web Application/R Shiny App/app.R
index d12eeb7..0be19b2 100644
--- a/2. Web Application/Text_Prediction_Using_N-grams/app.R	
+++ b/2. Web Application/R Shiny App/app.R	
@@ -11,10 +11,10 @@ ui <- fluidPage(theme=shinythemes::shinytheme("lumen"),
                 
     titlePanel(strong("Text Prediction Using N-gram Models")),
     h5("Candace Ng"),
-    h5("August 19, 2020"),
     
     br(), hr(),
-    h4(strong("Predictor")),
+    h3(strong("Predictor")),
+    h5("This model predicts the next word in a sentence based on the most frequently occuring N-grams in a large text corpus of blogs, news articles, and tweets (see below for statistics)"),
     fluidRow(
         column(6, align="center",
            textInput("text", h5("Enter Text:"), value=""),
@@ -28,7 +28,7 @@ ui <- fluidPage(theme=shinythemes::shinytheme("lumen"),
     ),
     
     br(), hr(), 
-    h4(strong("Statistics")),
+    h3(strong("Statistics")),
     h5("Toggle between the tabs to view the most frequently occuring unigrams, bigrams, and trigrams from the text corpus"),
     mainPanel(width="80%", align="center",
         tabsetPanel(
diff --git a/2. Web Application/Text_Prediction_Using_N-grams/bigram.rds b/2. Web Application/R Shiny App/bigram.rds
similarity index 100%
rename from 2. Web Application/Text_Prediction_Using_N-grams/bigram.rds
rename to 2. Web Application/R Shiny App/bigram.rds
diff --git a/2. Web Application/Text_Prediction_Using_N-grams/trigram.rds b/2. Web Application/R Shiny App/trigram.rds
similarity index 100%
rename from 2. Web Application/Text_Prediction_Using_N-grams/trigram.rds
rename to 2. Web Application/R Shiny App/trigram.rds
diff --git a/2. Web Application/Text_Prediction_Using_N-grams/unigram.rds b/2. Web Application/R Shiny App/unigram.rds
similarity index 100%
rename from 2. Web Application/Text_Prediction_Using_N-grams/unigram.rds
rename to 2. Web Application/R Shiny App/unigram.rds
diff --git a/2. Web Application/rsconnect/documents/Capstone Presentation.Rmd/rpubs.com/rpubs/Document.dcf b/2. Web Application/rsconnect/documents/Capstone Presentation.Rmd/rpubs.com/rpubs/Document.dcf
new file mode 100644
index 0000000..c9f2528
--- /dev/null
+++ b/2. Web Application/rsconnect/documents/Capstone Presentation.Rmd/rpubs.com/rpubs/Document.dcf	
@@ -0,0 +1,10 @@
+name: Document
+title:
+username:
+account: rpubs
+server: rpubs.com
+hostUrl: rpubs.com
+appId: https://api.rpubs.com/api/v1/document/650714/bc55d732820344ba8419270510ecf512
+bundleId: https://api.rpubs.com/api/v1/document/650714/bc55d732820344ba8419270510ecf512
+url: http://rpubs.com/publish/claim/650714/4407331a1d5d44bdac03038676967b82
+when: 1597889195.72476