R语言编写简单的函数

当我们对数据的分析有一些特殊的需要，而已有的R包不能满足需要时，我们就可以在R中编写自己的函数，
举例介绍编写函数的方法：

myfun<-function(x)
{
n<-length(x)
mean<-mean(x)
median<-median(x)
r<-max(x)-min(x)
s<-sd(x)
summ<-data.frame(c(n,median,r,s),row.names=c(N="个数',“均值”，"中位数","极差',"标准差'))
names(summ)<-"值"
return(summ)
}
myfun(x)

举例，编写一个函数，运行结果如下：