Initiated

.Rproj.user/178A6739/sources/session-99529da2/FE6BB309-contents

@@ -0,0 +1,46 @@
+# Estimate exposure at risk and create report
+# Application developed by LaNubia
+
+library(shiny)
+library(dplyr)
+library(ggplot2)
+library(lubridate)
+library(survival)
+library(pec)
+library(DT)
+library(shinycssloaders)
+library(imfr)
+library(patchwork)
+library(tidyr)
+library(shinythemes)
+library(triangle)
+library(DiagrammeR)
+library(stringr)
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("LoanRisk"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           
+        )
+    )
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+
+
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)