You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
823 B
47 lines
823 B
4 years ago
|
# 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)
|