diff --git a/Nitrogen/app.R b/Nitrogen/app.R
new file mode 100644
index 0000000..202b220
--- /dev/null
+++ b/Nitrogen/app.R
@@ -0,0 +1,28 @@
+library(shiny)
+
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("Old Faithful Geyser Data"),
+
+    # Sidebar
+    sidebarLayout(
+        sidebarPanel(
+
+        ),
+
+        
+        mainPanel(
+           
+        )
+    )
+)
+
+server <- function(input, output) {
+
+    output$distPlot <- renderPlot({
+    })
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)