R语言相关，练习，跑模型