R语言实验6