在R脚本里利用帮助中的例子写入一段代码并执行,