This function removes duplicate loans from a loans panel dataset based on a specified lender variable and loan dates, and combines loan size from loans with the same lender and dates.
Usage
ffp_hfid_loan_non_duplicate(
df_loans_panel,
svr_lender_var = "forinfm4",
verbose = FALSE,
verbose_detail = FALSE,
it_verbose_detail_nrow = 100
)
Arguments
- df_loans_panel
The loans panel dataset, unit of observation is loan in each month of loan life.
- svr_lender_var
The variable name of the lender variable used to identify duplicate loans. Default is "forinfm4". Can change this to change the definition of what an identical lender is.
- verbose
Logical indicating whether to print progress messages. Default is FALSE.
- verbose_detail
Logical indicating whether to print detailed progress messages. Default is FALSE.
- it_verbose_detail_nrow
The number of rows to print when verbose_detail is TRUE. Default is 100.
Value
A list containing the following elements:
- tstm_loans_pn
Each loan own row, interest rate, size, duration.
- tstm_loans_pn_nd
Each row a unique loan by lender type and dates, with aggregated loan size from loans with the same lender and dates.
Author
Fan Wang, http://fanwangecon.github.io
Examples
tstm_loans_panel <- PrjThaiHFID::tstm_loans_panel
#> Error: 'tstm_loans_panel' is not an exported object from 'namespace:PrjThaiHFID'
ls_return <- ffp_hfid_loan_non_duplicate(tstm_loans_panel)
#> Error in eval(expr, envir, enclos): object 'tstm_loans_panel' not found
print(ls_return)
#> Error in eval(expr, envir, enclos): object 'ls_return' not found