R语言中实现马尔可夫链蒙特卡罗MCMC模型