R语言实验六