热卡填充法R语言程序