R语言实战--代码，在这里没找到免费的。其他地方找来，发份免费的上来。