asitav/LoanRisk
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ready

Browse Source
This commit is contained in:
Asitav Sen
2022-08-22 15:10:36 +02:00
parent 00b045ee8e
commit 55a713de03
8 changed files with 240 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
.Rproj.user/178A6739/sources/prop/48F98022
View File

@@ -1,6 +1,6 @@
{
"source_window_id": "",
"Source": "Source",
"cursorPosition": "50,4",
"scrollLine": "12"
"cursorPosition": "89,22",
"scrollLine": "71"
}

2
.Rproj.user/178A6739/sources/prop/9D91FFC1
View File

@@ -1,6 +1,6 @@
{
"source_window_id": "",
"Source": "Source",
"cursorPosition": "16,0",
"cursorPosition": "27,17",
"scrollLine": "0"
}

10
.Rproj.user/178A6739/sources/session-99529da2/58AD392C
View File

@@ -3,7 +3,7 @@
"path": "~/Projects/LoanRisk/panel.R",
"project_path": "panel.R",
"type": "r_source",
"hash": "2913767970",
"hash": "0",
"contents": "",
"dirty": false,
"created": 1686047069391.0,
@@ -12,15 +12,15 @@
"properties": {
"source_window_id": "",
"Source": "Source",
"cursorPosition": "50,4",
"scrollLine": "12"
"cursorPosition": "89,22",
"scrollLine": "71"
},
"folds": "",
"lastKnownWriteTime": 1686047587,
"lastKnownWriteTime": 1686050840,
"encoding": "UTF-8",
"collab_server": "",
"source_window": "",
"last_content_update": 1686047587539,
"last_content_update": 1686050840851,
"read_only": false,
"read_only_alternatives": []
}

44
.Rproj.user/178A6739/sources/session-99529da2/58AD392C-contents
View File

@@ -1,14 +1,13 @@
countries <- read.csv("./data/countries.csv")
panel1<-
panel1 <-
tabPanel(
"Home",
fluidRow(column(
width = 11,
fluidRow(column(width = 11,
fluidRow(
column(
width = 8,
column(width = 8,
tags$div(
tags$blockquote(
"LoanRisk is being built to provide convenience to Finance and Accounting consultants and SMEs in finance industry."
@@ -18,13 +17,17 @@ panel1<-
Naturally, it is time consuming and has its share of hassles. This app attempts to avoid all the hassles of setting up environment and tools to perform the multistep analysis.
This app will calculate the provisioning requirements in a few clicks and one can download the report with a single click!"
),
p("The basic steps are mentioned in the diagram on the left hand side. The app is not in its most evolved form yet.
There is a huge list of features and functions that I personally want to include and implement in future."),
p(
"The basic steps are mentioned in the diagram on the left hand side. The app is not in its most evolved form yet.
There is a huge list of features and functions that I personally want to include and implement in future."
),
h6("How to use?"),
p("Using the tool is very simple. You can upload two data sets. One that shows a certain number of transactions of each asset, along with some dates, parameters and event outcome.
p(
"Using the tool is very simple. You can upload two data sets. One that shows a certain number of transactions of each asset, along with some dates, parameters and event outcome.
And the other that contains value of collateral or estimated value of sales of the asset/hypothecated asset. Then proceed further with the clicks and in between select some parameters.
For e.g. the discount rate to be applied, the most probable, maximum possible and minimum possible depreciation of value of the collateral.
Once the simulation is done, you can download the report in pdf format.")#,
Once the simulation is done, you can download the report in pdf format."
)#,
# "If you are a R coder, you are welcome to contribute and help improve. Please visit the ",
# tags$a(href = "https://github.com/asitav-sen/LoanRisk", "github page"),
# " or ",
@@ -34,21 +37,21 @@ panel1<-
# " to report issues and/or request new features/functions.", "For general discussions, please use this",tags$a(href = "https://github.com/asitav-sen/LoanRisk/discussions", "link"),
# tags$br(),
# tags$image(height=100, width=100,src="logo3.png")
)
),
)),
column(
width = 4,
mermaid("
mermaid(
"
graph TB
A[Data Upload]-->B[Downloading macroeconomic data]
B[Downloading macroeconomic data from IMF]-->C[Forecasting macroeconomic parameters]
C[Forecasting macroeconomic parameters]-->D[Fit Survival Model]
D[Fit Survival Model]-->E[Monte Carlo Simulation]
E[Monte Carlo Simulation]-->F[Report]
")
"
)
),
)),
)
),)),
tags$hr(),
fluidRow(
column(
@@ -59,10 +62,13 @@ panel1<-
p("This section shows the data (uploaded or inbuilt sample).")
),
br(),
withSpinner(dataTableOutput("up_data"),type = 7,
color = "black"),
withSpinner(
dataTableOutput("up_data"),
type = 7,
color = "black"
),
br(),
actionButton("uploadnew", "Upload New Data", class="btn-light")
actionButton("uploadnew", "Upload New Data", class = "btn-light")
),
column(width = 6,
br(),
@@ -111,4 +117,4 @@ panel1<-
uiOutput("credit_loss"))),
fluidRow(column(width = 11,
uiOutput("dlmanager")))
)
)

8
.Rproj.user/178A6739/sources/session-99529da2/FEF97A26
View File

@@ -3,7 +3,7 @@
"path": "~/Projects/LoanRisk/mod_basic.R",
"project_path": "mod_basic.R",
"type": "r_source",
"hash": "1648399213",
"hash": "0",
"contents": "",
"dirty": false,
"created": 1686047786220.0,
@@ -12,15 +12,15 @@
"properties": {
"source_window_id": "",
"Source": "Source",
"cursorPosition": "16,0",
"cursorPosition": "27,17",
"scrollLine": "0"
},
"folds": "",
"lastKnownWriteTime": 1686049500,
"lastKnownWriteTime": 1686050855,
"encoding": "UTF-8",
"collab_server": "",
"source_window": "",
"last_content_update": 1686049500334,
"last_content_update": 1686050855732,
"read_only": false,
"read_only_alternatives": []
}

10
.Rproj.user/178A6739/sources/session-99529da2/FEF97A26-contents
View File

@@ -6,9 +6,7 @@ basicstatUI <- function(id) {
fluidRow(
h3("No of Assets"),
br(),
p(
"This section shows some basic information about the portfolio."
),
p("This section shows some basic information about the portfolio."),
plotOutput(ns("statplot")),
verbatimTextOutput(ns("balancetext"))
)
@@ -90,8 +88,7 @@ basicstatServer <- function(id, dt) {
group_by(customer_type, loan_status) %>%
summarise(no_of_loans = n()) %>%
ungroup() %>%
ggplot(
aes(
ggplot(aes(
x = customer_type,
y = no_of_loans,
label = no_of_loans,
@@ -100,8 +97,7 @@ basicstatServer <- function(id, dt) {
levels = c("0", "1"),
labels = c("Good", "Bad")
)
)
) +
)) +
geom_col(position = "dodge") +
geom_text(aes(y = no_of_loans + 20), position = position_dodge(width = 1)) +
labs(title = "No. of assets by customer type",

10
mod_basic.R
View File

@@ -6,9 +6,7 @@ basicstatUI <- function(id) {
fluidRow(
h3("No of Assets"),
br(),
p(
"This section shows some basic information about the portfolio."
),
p("This section shows some basic information about the portfolio."),
plotOutput(ns("statplot")),
verbatimTextOutput(ns("balancetext"))
)
@@ -90,8 +88,7 @@ basicstatServer <- function(id, dt) {
group_by(customer_type, loan_status) %>%
summarise(no_of_loans = n()) %>%
ungroup() %>%
ggplot(
aes(
ggplot(aes(
x = customer_type,
y = no_of_loans,
label = no_of_loans,
@@ -100,8 +97,7 @@ basicstatServer <- function(id, dt) {
levels = c("0", "1"),
labels = c("Good", "Bad")
)
)
) +
)) +
geom_col(position = "dodge") +
geom_text(aes(y = no_of_loans + 20), position = position_dodge(width = 1)) +
labs(title = "No. of assets by customer type",

44
panel.R
View File

@@ -1,14 +1,13 @@
countries <- read.csv("./data/countries.csv")
panel1<-
panel1 <-
tabPanel(
"Home",
fluidRow(column(
width = 11,
fluidRow(column(width = 11,
fluidRow(
column(
width = 8,
column(width = 8,
tags$div(
tags$blockquote(
"LoanRisk is being built to provide convenience to Finance and Accounting consultants and SMEs in finance industry."
@@ -18,13 +17,17 @@ panel1<-
Naturally, it is time consuming and has its share of hassles. This app attempts to avoid all the hassles of setting up environment and tools to perform the multistep analysis.
This app will calculate the provisioning requirements in a few clicks and one can download the report with a single click!"
),
p("The basic steps are mentioned in the diagram on the left hand side. The app is not in its most evolved form yet.
There is a huge list of features and functions that I personally want to include and implement in future."),
p(
"The basic steps are mentioned in the diagram on the left hand side. The app is not in its most evolved form yet.
There is a huge list of features and functions that I personally want to include and implement in future."
),
h6("How to use?"),
p("Using the tool is very simple. You can upload two data sets. One that shows a certain number of transactions of each asset, along with some dates, parameters and event outcome.
p(
"Using the tool is very simple. You can upload two data sets. One that shows a certain number of transactions of each asset, along with some dates, parameters and event outcome.
And the other that contains value of collateral or estimated value of sales of the asset/hypothecated asset. Then proceed further with the clicks and in between select some parameters.
For e.g. the discount rate to be applied, the most probable, maximum possible and minimum possible depreciation of value of the collateral.
Once the simulation is done, you can download the report in pdf format.")#,
Once the simulation is done, you can download the report in pdf format."
)#,
# "If you are a R coder, you are welcome to contribute and help improve. Please visit the ",
# tags$a(href = "https://github.com/asitav-sen/LoanRisk", "github page"),
# " or ",
@@ -34,21 +37,21 @@ panel1<-
# " to report issues and/or request new features/functions.", "For general discussions, please use this",tags$a(href = "https://github.com/asitav-sen/LoanRisk/discussions", "link"),
# tags$br(),
# tags$image(height=100, width=100,src="logo3.png")
)
),
)),
column(
width = 4,
mermaid("
mermaid(
"
graph TB
A[Data Upload]-->B[Downloading macroeconomic data]
B[Downloading macroeconomic data from IMF]-->C[Forecasting macroeconomic parameters]
C[Forecasting macroeconomic parameters]-->D[Fit Survival Model]
D[Fit Survival Model]-->E[Monte Carlo Simulation]
E[Monte Carlo Simulation]-->F[Report]
")
"
)
),
)),
)
),)),
tags$hr(),
fluidRow(
column(
@@ -59,10 +62,13 @@ panel1<-
p("This section shows the data (uploaded or inbuilt sample).")
),
br(),
withSpinner(dataTableOutput("up_data"),type = 7,
color = "black"),
withSpinner(
dataTableOutput("up_data"),
type = 7,
color = "black"
),
br(),
actionButton("uploadnew", "Upload New Data", class="btn-light")
actionButton("uploadnew", "Upload New Data", class = "btn-light")
),
column(width = 6,
br(),
@@ -111,4 +117,4 @@ panel1<-
uiOutput("credit_loss"))),
fluidRow(column(width = 11,
uiOutput("dlmanager")))
)
)