R语言--19

函数：

定义函数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