如何创建一个函数？

Question

我知道有这样的功能：

x <- rnorm(90, 2, 1) 
quantile(x, prob=c(0.25, 0.75), type=8) 

但我想创造出具有输出

quantile(x, prob=c(0.25, 0.75), type=8) 

我知道如何创建一个简单的功能，像下面完全相同的功能。

f1 <- function(x) { 
function() { 
x + 10 
} 
} 

但事实是，通过这种方式，我可以不适用的

(x+1/3)*0.25 + 1/3 = first output 
(x+1/3)*0.75 +1/3 = second output 

方程式可否请您让我知道怎么样？

我需要为输出这个低于

25%  75% 
1.396165 2.717208 

Answer 1

我看不出一点在嵌套函数（）的函数调用中（）调用：

f2 <- function(x) { 
    c(first=(x+1/3)*0.25 + 1/3, second=(x+1/3)*0.75 +1/3 
    } # I'm guessing this is not really what you want. 

或者你可能想要的东西：

fQ13 <- function (x) { quantile(x, c(0.25,75), type=8) }