R函数编写基础

编写函数：
第一部分：
1 print("str")##打印函数，打印出字符内容
2 sprintf("hello,%s","yjz")##%s是占位符，。
3 函数参数以及函数调用：
hello.persion<-function(first,last)
{
    print(sprintf("hello %s %s",first,last))
}
4 缺省参数
hello.persion<-function(first,last="Rainbow")
{
    print(sprintf("hello %s %s",first,last))
}
#############
> hello.persion("yjz")
[1] "hello yjz Rainbow"
>
#############
5 额外参数
hello.persion<-function(first,last="Rainbow",...)
{
    print(sprintf("hello %s %s",first,last))
}
#########
> hello.persion("yjz","rain","bow")
[1] "hello yjz rain"
>
#########
6 返回值
double.num<-function(x)
{
    return(x*5)
}
#########
> double.num(10)
[1] 50
>
#########
6 do.call
在do.call中，我们可以指定函数名称以及函数参数.
run.this<-function(x,func=mean)
{
    do.call(func,args=list(x))
}
#########
> run.this(1:10)
[1] 5.5
#########
do.call(functionName,args=list(paramter1,paramter2))
##在该函数内部，填写函数名字，例如mean求平均值函数，args是参数列表，就是掉用的mean函数所需要的函数参数。
第二部分：控制语句
1 if 跟else 语句
if(x)
{
    print("")
}
else
{
    print("")
}
2 switch语句
use.switch<-function(x)
{
    switch(x,
        "a"="first",
        "b"="second",
        "c"="last")
}
###########
> use.switch("a")
[1] "first"
>
###########
3 ifelse语句
if(1==1,"yes","no")###第一个参数表达式是条件，第二个是返回真值要展现的结果，第三个参数是返回加值要展现的结果
4 复合检查：
a<-c(1,1,0,1)
b<-c(2,1,0,1)
ifelse(a==1&b==1,"yes","no")
###############
> a<-c(1,1,0,1)
> b<-c(2,1,0,1)
> ifelse(a==1&b==1,"yes","no")
[1] "no"  "yes" "no"  "yes"
>
> ifelse(a==1&&b==1,"yes","no")
[1] "no"

该复合检查，&是挨个比较向量中的每各元素
&&只比较一个，即最左边的那个
################
3 第三部分：迭代方式##for循环跟while循环
for(i in 1:100)
{
    print(i)
}
while(i<=100)
{
    print(i)
    x<-x+1
}