R语言-自定义函数

Python07

R语言-自定义函数,第1张

在R的基础包和扩展包中包含了很多强大的R函数。然而很多时候我们需要自己编写函数来实现特定的任务。

function_name为函数名；arg为形参；expr为函数体。

2.1 编制一个函数计算。

输入：参数n

输出：

算法步骤：

运行上面的程序

于是得到

要把你的函数source进内存才能用，也可以把你定义函数的文件一行一行的执行，之后就可以用了。

不像matlab，会自己去找函数名。在R中，存在硬盘上的函数定义文件是没法用的……

输入了函数对象名称，可以直接看到代码的，如要获得函数对象fivenum的代码，就只需要在Console中键入函数对象名称fivenum就可以得到如下结果：

function (x, na.rm = TRUE)

{

xna <- is.na(x)

if (na.rm)

x <- x[!xna]

else if (any(xna))

return(rep.int(NA, 5))

x <- sort(x)

n <- length(x)

if (n == 0)

rep.int(NA, 5)

else {

n4 <- floor((n + 3)/2)/2

d <- c(1, n4, (n + 1)/2, n + 1 - n4, n)

0.5 * (x[floor(d)] + x[ceiling(d)])

}

}