day-2021-04-23—R语言自定义函数

R语言自定义函数

• 自定义函数使用switch

  myDate <- function(type){
    switch(type,
           long = format(Sys.time(), "%A %B %C %y %m %d"),
           short = format(Sys.time(), "%y-%m-%d"),
           cat(type, "is not type\n"))
  }													# function：定义函数
  													# switch：与Javaswitch一样
  													# type：参数
  													# Sys.time(), "%A %B %C %y %m %d"：获取当前系统时间，指													  定格式
  													# Sys.time(), "%y-%m-%d"：获取当前系统时间，指定格式
  													# cat：其他情况之外
  fix(myDate)  # 编辑器，可以编辑函数
  myDate("long")  # 调用函数，传入参数
  myDate("short")  #  调用函数，传入传参
  

• 自定义函数所有for

  mySum <- function(num){
    x <- 0
    for (i in 1:num) {
      x <- x+i
      print(x)
    }
    return(x)				
      					# function：定义函数
      					# for：和Java一样，表示循环
      					# return：返回参数
  }
  fix(mySum)  # 编辑器，可以编辑函数
  mySum(10)