自定义函数
你可以输出一段代码，创建一个你自己定义的函数
蛋是如果你两个自定义函数的名字重复的话，后面的会把前面的替换掉
举个栗子：
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 ")
)
}
再举个栗子
sum <- function(num) {
x <- 0
for(i in 1:num) {
x <- x + i
}
return(x)
}
也很简单不解释了哈