No.7 自定义函数

一、自定义函数

1.定义函数

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#定义函数 无参函数 myprint<-function(){   print("I like R!") } myprint()#调用函数   #定义函数 有参函数 myadd<-function(a,b){   print(paste("the first is",a))   print(paste("the first is",b))   return(a+b)  #a+b  } s<-myadd(a=11,b=12)   #定义函数 有参函数 myadd<-function(a,b){   print(paste("the first is",a))   print(paste("the first is",b))   a+b  } s<-myadd(a=11,b=12)

2.返回值

?

1	#自定义函数返回函数体最后一行的代码执行，或者返回return值（return放在前面，return后面的语句不再执行）

3.匿名函数

    一般用作其他函数的参数。

?

1	sapply(1:10,function(x){x^2})

　　这里没有定义函数名字，是对前面1到10 每个元素平方。

?

1 2 3

(function(x){x^2})(1:10)   c(1:10)^2

　　结果一样：

?

1 2 3 4 5 6

> sapply(1:10,function(x){x^2})  [1]   1   4   9  16  25  36  49  64  81 100 > (function(x){x^2})(1:10)  [1]   1   4   9  16  25  36  49  64  81 100 > c(1:10)^2  [1]   1   4   9  16  25  36  49  64  81 100