Peer-graded Assignment: Week 04

Course Project: Shiny Application and Reproducible Pitch

Find my 'ui.R' and 'server.R' Shiny App codes on these files at:

https://github.com/farhadkpx/Developing-Data-Products/blob/master/ui.R

https://github.com/farhadkpx/Developing-Data-Products/blob/master/server.R

Shiny App Presentation slides on either host-site: http://rpubs.com/Redeemk17/314454 [slides]

https://purview67.shinyapps.io/PractiseApp/ [reactive output]

In my 'Shiny-App' presentation, I've used regression analysis statistical model to analyze 'Ozone' emmission in correlation to all other relevant variables within the 'airquality' data set.

The underlying persuasion is how 'Ozone(O3)' emission is directly impacted or dependent against other elements of the environment. My App will display multiple 'scatterplot' on this analytical processes providing a better conditional view of Ozone gas on the uppper atmosphere.

Any user can choose the regression formula on the reactive input box to get a submitted view of the scatterplot.

I didn't use any data manipulation while designing this presentation.

This is a rather simple App to use and manipulate. Here, I'm narrating some documentation about how to use this App.

Step 1: To witness the dataset or data-summary, just click on the Data(tab1) or Summary(tab2) on the right side of the page.

Step 2: To choose your variable for regression analysis, where 'Ozone' is the independent variable, click on the 'text input box' and select any available(dependent) variable you like then click on the 'Submit' button right below the input box.

Step 3: Finally, choose the 'Scatterplot' on the right (tab3), which will display the scatterplot on the right side of the page.

{ r, eval=FALSE} library(shiny);data("airquality") shinyUI(pageWithSidebar(titlePanel("Regression Model: 'airquality' dataset"), sidebarPanel( selectInput("variable", "Regression Model formula: Ozone ~ (variable)", choices = names(airquality)[-1]), helpText("To dispaly a plot first select a varaiable > click Submit > click 'Scatterplot' on tabpanel for plot display."),hr(), submitButton("Submit") ), # Main Panel for displaying following ouput mainPanel(tabsetPanel(type = "tabs", tabPanel("Data", tableOutput("table")), tabPanel("Summary", verbatimTextOutput("summary")), tabPanel("Scatterplot:", plotOutput("regr.Plot")) # end tabsetPanel ) )))