myfunction<-function(arg1,arg2,...){

statement return (object )}

1.给自定义的函数一个名称“myfunction”

2.function（）内为参数，可以设置默认值，等待使用自定义函数mufunction时赋值。

3.statement 是功能执行语句。

4.return 是最终输出的值
eg1：计算两数相乘

function1 <- function(a,b) {
   result= a*b       #function的主体部分，包含功能的语句
   print(result)      #最终的输出值
}

functin1(2,3)
[1] 6

eg2:输出多个结果

function2 <- function(a,b){
   print(a^2)
   print(b)
   print(a)
}

 function2 (2,3)
[1] 4
[1] 3
[1] 2

eg3：

function3 <- function(a,b){
    plot(a,b)
    return(a+b)
}

function3(2,3)
[1] 5

function（2,3）

eg4:计算1-a中所有数的平方

function4 <- function(a){
  for(i in 1:a){
  b = i^2
  print(b)
 }
}

function4(4)
[1] 1
[1] 4
[1] 9
[1] 16

eg5：用参数值调用函数(按位置和名称)

函数调用的参数可以按照函数中定义的顺序提供，也可以按`不同的顺序`提供，
只需要分配给参数的名称即可。

function5 <- function(a,b,c){
  result=a*b +c
  print(result)
}
一样的结果
function5(2,3,4)
function5(a=2,c=4,b=3)

eg6：

function6 <- function(x,npar=TRUE,print=TRUE) {
  if (!npar) {
    center <- mean(x); spread <- sd(x)     #mean:平均数；sd：标准差
  } else {
    center <- median(x); spread <- mad(x)    #median：中位数；mad：绝对中位差
  }
  if (print & !npar) {
    cat("Mean=", center, "\n", "SD=", spread, "\n")
  } else if (print & npar) {
    cat("Median=", center, "\n", "MAD=", spread, "\n")
  }
  result <- list(center=center,spread=spread)
  return(result)
}


 x <- rnorm(10,0,1)      #生成10个均值为0，标准差为1的正态随机数
 function6(x)
 Median= -0.3879296 
  MAD= 1.434252 
 $center
 [1] -0.3879296

 $spread
 [1] 1.434252