如何创建功能？

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

我认为在函数（）调用中嵌套一个function（）调用没有意义：

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) }