Create code.R

实现RJMCMC，用于选择较优的准备金模型，估计准备金，以及讨论尾部因子