函数：
定义函数mean,var,stderr
mymean<-function(x){sum(x)/length(x)}
myvar<-function(x){sum((x-mymean(x))^2)/(length(x)-1)}
stderr<-function(x){sqrt(myvar(x)/length(x))}
#x可以传入向量
勾股定理：输入直角边的长度，输出斜边的长度
sqtest1<-function(x=3, y)
#缺省值：x=3;这里定义的x=3类似于函数中的默认参数，不输入则填入这里的默认参数
{
z1=x^2;
z2=y^2;
z3=z1+z2;
sqrt(z3)
}
> sqtest1(,4)#缺省值x=3
[1] 5
> sqtest1(6,8)
[1] 10
