R中的自定义函数function

R中的自定义函数function

R中的自定义函数function_人工智能_Erin的博客-CSDN博客

小力丸 最后发布于2017-07-11 22:15:39 阅读数 6231  收藏

函数语法

函数名<-function(parameters){

statemens

return(expression)}

printLine <- function () {

  print("--------------------------------------------");

}

#函数的调用

printLine();

#错误：无参函数，有参调用

printLine("parameter");

printNLines <- function (n) {

  for(i in 1:n) {

    print("--------------------------------------------");

  }

}

#错误：有参函数，无参调用

printNLines()

printNLines(3)

printNLines <- function (n=1) {

  for(i in 1:n) {

    print("--------------------------------------------");

  }

}

#正确：有参函数，因为有默认值，可以无参调用

printNLines()

#也可以有参数调用

printNLines(3)

printInfo <- function (name, age) {

  print(paste("name is: ", name, ", age is: ", age, sep=""))

}

printInfo("KEN", 18)

printInfo(age=18, name="KEN")

printInfo <- function (name, age, ...) {

  print(paste("name is: ", name, ", age is: ", age, sep=""));

  otherParames = list(...);

  for(key in names(otherParames)) {

    print(paste(key, " is: ", otherParames[key], sep=""));

  }

}

printInfo("KEN", 18, height="178CM", weight="75KG", sex="男");

data <- read.csv("data.csv", sep=",", fileEncoding='utf8');

summary(data[,3])

#summary加强版

summaryEx <- function(column) {

  s <- summary(column)

  #方差

  s[['var']] <- var(column);

  #标准差

  s[['sd']] <- sd(column);

  #s #直接写个s也可以替代下面的语句

  return (s);

}

summaryEx(data[, 3])

通过定义函数，实现了summary函数的加强版功能！

更多自编函数，参见Erin的自编函数整理，直接调用帮助你的数据分析工作事半功倍哦！

————————————————

版权声明：本文为CSDN博主「小力丸」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/lll1528238733/java/article/details/74999755