我想在R中优化以下代码.这个循环需要很长时间才能运行.我想知道是否有人可以帮我优化这段代码,因为它需要很长时间才能运行？我谢谢你们!
SIN_FM5 :是一个包含大约300.000行和7列的数据库.
# Make Combination
SIN_FM5$Combination=(SIN_FM5$SINISTRE)
Count.Comb=data.frame(table(SIN_FM5$Combination))
# Calculate number of combinations
Total.Comb=nrow(Count.Comb)
# Loop through all combinations and calculate statistics
Statistics=array(0,dim=c(Total.Comb,5))
for (i in 1:Total.Comb) {
Subset=subset(SIN_FM5, SIN_FM5$Combination==Count.Comb[i,1])
Statistics[(i),]=c(Count.Comb[i,1],mean(Subset$MONTANT_PAIEMENT),
median(Subset$MONTANT_PAIEMENT),min(Subset$MONTANT_PAIEMENT),
max(Subset$MONTANT_PAIEMENT))
}
resultatN=cbind(Count.Comb,Statistics)
dput(head(SIN_FM5))
控制台〜/
"TRSP-5194", "TRSP-5197", "TRSP-5201", "TRSP-5202", "TRSP-5204",
"TRSP-5205", "TRSP-5207", "TRSP-5212", "TRSP-5214", "TRSP-5215",
"TRSP-5218", "TRSP-5222", "TRSP-5230", "TRSP-5238", "TRSP-5243",
"TRSP-5247", "TRSP-5248", "TRSP-5253", "TRSP-5254", "TRSP-5255",
"TRSP-5257", "TRSP-5259", "TRSP-5262", "TRSP-5263", "TRSP-5266",
"TRSP-5267", "TRSP-5268", "TRSP-5270", "TRSP-5271", "TRSP-5274",
"TRSP-5277", "TRSP-5279", "TRSP-5281", "TRSP-5283", "TRSP-5288",
"TRSP-5289", "TRSP-5293", "TRSP-5296", "TRSP-5299", "TRSP-5301",
"TRSP-5303", "TRSP-5304", "TRSP-5306", …