```
#==============================1. 数据导入==============================
Month_slide = list()
TIME_LENGTH = 0
STD_DATE <- c()
#--------------------1.1 月度切片读取--------------------
#=====时间序列=====#
#起始日期
date1 = as.Date('20200930',format='%Y%m%d')
#结束日期
date2 = as.Date('20241130',format='%Y%m%d')
leng = round((as.yearmon(date2)-as.yearmon(date1))*12+1,0)
date = c()
date = as.character(format(seq(as.Date(date1+1),length = leng, by="1 month")-1),format='%Y%m%d')
rm(date1,date2)
date_file = gsub("-","",date)
date_file = paste0("C:/Users/xxx/","lsr_i9_dkk2_",date_file,".csv")
headers<-c("stac_dt","due_no","cust_id","issu_dt","loan_typ","issu_amt","loan_bal","yslx",
"int_start_dt","end_dt","init_loan_term","cur_loan_term","remain_loan_term",
"rep_way_typ","loan_exe_rate","five_clas_flg","wrof_flg","wrof_amt","wrof_dt",
"curr_od_days","od_days","his_max_od_days","delay_tag","delay_start_dt")
#=====导入月度切片=====#
for (i in 1:length(date)) {
print(i)
Month_slide[[i]] = read.csv(date_file[i],header=FALSE,col.names=headers,stringsAsFactors = FALSE)
print(dim(Month_slide[[i]]))
}
setwd('C:/Users/xxx')
xTIME_LENGTH = TIME_LENGTH + leng
STD_DATE <- append(STD_DATE,date)
gc()
#--------------------2.数据处理--------------------
#-----时间序列命名-----#
names(Month_slide) = STD_DATE
#--------------------3.提取字段--------------------
name <- names(Month_slide[[1]])
#--------------------4.核销清单--------------------
CHARGEDOFF_LOAN <- Month_slide[[RPT_DATE]]%>%subset(wrof_flg%in% c("Y"))%>%distinct(cust_id,.keep_all=TRUE)
CHARGEDOFF_LOAN_DUE <- Month_slide[[RPT_DATE]]%>%subset(wrof_flg%in% c("Y"))%>%distinct(due_no,.keep_all=TRUE)
CHARGEDOFF_LOAN$cust_id <- as.character(CHARGEDOFF_LOAN$cust_id)
CHARGEDOFF_LOAN$wrof_dt_new <- ceiling_date(as.Date(CHARGEDOFF_LOAN$wrof_dt),'month')-1```是在运行这段代码后显示的报错Error: cannot allocate vector of size 26.9 Mb。Month_slide <- lapply(date_file, function(f) {
dt <- data.table::fread(
file = f,
header = FALSE,
col.names = headers,
stringsAsFactors = FALSE,
showProgress = FALSE,
integer64 = "character"
)
return(dt)
})