作业，免费分享给大家，写得不太好哈，就看看吧~附带R操作。