Skip to contents

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