以下数据，在R软件上如何做趋势图和Page检验，请写下具体的程序

增长率  X2016  X2015  X2014  X2013  X2012  X2011
1   上海 12.09%  8.60% 10.97% 14.32% 13.69% 24.085
2   江苏 12.53%  8.98% 11.12% 15.49% 20.87% 24.20%
3   浙江 11.81% 11.38% 11.09% 13.11% 20.82% 21.02%
4   安徽 10.03%  9.71% 11.79% 24.95% 31.31% 31.09%
5   福建 15.63% 10.68% 13.02% 15.90% 22.35% 29.61%
6   江西 19.69% 13.13% 12.99% 19.17% 17.46% 11.01%
7   山东  9.73%  9.44% 10.91% 15.24% 20.83% 25.65%

crank::page.trend.test()

cheetahfly 发表于 2017-12-20 08:16
crank::page.trend.test()

read.csv(file.choose())
  增长率  X2016  X2015  X2014  X2013  X2012  X2011
1   上海 12.09%  8.60% 10.97% 14.32% 13.69% 24.085
2   江苏 12.53%  8.98% 11.12% 15.49% 20.87% 24.20%
3   浙江 11.81% 11.38% 11.09% 13.11% 20.82% 21.02%
4   安徽 10.03%  9.71% 11.79% 24.95% 31.31% 31.09%
5   福建 15.63% 10.68% 13.02% 15.90% 22.35% 29.61%
6   江西 19.69% 13.13% 12.99% 19.17% 17.46% 11.01%
7   山东  9.73%  9.44% 10.91% 15.24% 20.83% 25.65%
> plot(1:7,seq(length.out=7),type="n",xlab="7city",ylab="AAGR",xlim=c(0,7),ylim=c(0,35),main="东部六省一市科学技术投入额增长率（%）”）
+ lines(d[，1],col=1,lty=1)
+ lines(d[，2],col=2,lty=2)
+ lines(d[，3],col=3,lty=3)
+ lines(d[，4],col=4,lty=4)
+ lines(d[，5],col=5,lty=5)
+ lines(d[，6],col=6,lty=6)
+ lines(d[，7],col=7,lty=7)
legend(7,legend= c ("x2016","x2015","x2014","x2013","x2012","x2011"),lty=1:7,col=1:7,pch"")
能麻烦帮我看一下哪里出错了吗