R语言入门视频笔记--5--自定义函数

自定义函数

你可以输出一段代码，创建一个你自己定义的函数

蛋是如果你两个自定义函数的名字重复的话，后面的会把前面的替换掉

举个栗子：

hanshu1 <- function(x)  sqrt(var)

hanshu1 <- function(x ) sqrt(abs)  #如果你的函数只有一个函数 就不用加大括号 这两个函数名字重复了 后面的会把前面的替换掉

1、你可以设置参数也可以不设置参数，先看不设置参数的。

　　　　welcome <- function() print ("welcome to use R")

2、可以设置一个参数

　　　　welcome1 <-function(name) print(paste("welcome",name,"to use R"))

　　　　#注意细节  name的两边是　　有逗号的

　　　　你现在可以输入welcome1("tao fen nan hai")，回有返回值。　　　　　　　　

　　　　#还要注意细节 括号里面有双引号的

3、默认参数

　　　　welcome2 <- function(name="lao wang") print (paste("welcome",name,"to you home"))

　　　　#如果你不输入参数，它就默认为你之前设置的那个老王，就是欢迎老王去你家。

4、多个参数

yigehanshu <- function(n,mu=10,sigma=5){       #这是一个算t检验的自定义函数

x <-rnorm(n,mu,sigma)　　　　　　　　　　　　　#我也不会t检验，不要问我为什么

(mean(x)-mu)/(sd(x)/n)　　　　　　　　　　　　　#用法跟上面的默认参数的用法差不多

}　　　　　　　　　　　　　　　　　　　　　　　　　#yigehanshu(6,6,6) n就是6 mu也是6 另一个也是6

不写的话就是默认老王去你家　　　　　　　　　#反正就是666  就是很6

举个栗子

plot.f <- function(f,a,b,...){ 　　　　　　　　#你可以试试输入plot.f(sin,0,2*pi)

x<-seq(a,b,length=100)　　　　　　　　#或者plot.f(tan,0,2*pi)还是很有意思的　　　　　　

　　plot(x,f(x),type="l",...)

}

　　

举个栗子，很简单的一个函数，蛋是我看不懂，我擦，忍不了，解决这三个函数：switch format cat，请看下文分解。

mydata <- function(type) {

switch(type,

long = format(sys.time(),"%A %B %d %Y"),

short = format(sts.time(),"%m-%d-%y"),

cat(type,"is not recognized type\n")

)

}

再举个栗子

sum <- function(num) {

x <- 0

for(i in 1:num) {

x <- x + i

}

return(x)

}

也很简单不解释了哈