47 lines
823 B
Plaintext
47 lines
823 B
Plaintext
# 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)
|