myfuntion <-function(arg1,arg2,....){
    statements
    retrun (object)
}
注意 return 这里必须()
举例1
> mySum <- function(arg1,arg2){
+     result <- (arg1+arg2);
+     return (result)
+ }
> sum(1,2)
[1] 3

举例2
getDate <- function(type){
    switch(type,
           "long" = format(Sys.time(),"%Y-%m-%d"),
           "short" = format(Sys.time(),"%Y"),
           cat(type,"is not recongnized")
           )
    
}
备注 
"long" 这里可以不要"号， 
cat函数是拼接函数，
getData(1)会打印long的结果 getData(2)会打印short结果。。。

举例3
> mySum <- function(n){}
> fix(mySum)
function(n){
    res<-0
    for(i in 1:n){
        res<-res+i
    }
    return(res)
}
> mySum(10)
[1] 55