1.pbinom（S，n，p）＃计算二项分布不大于S的累积概率
2.定义符号检验函数sign.test
sign.test=function（x，y，alt）{＃alt=0为双侧检验，alt=1为右侧检验，alt=-1为左侧检验
3.趋势检验R语言代码
