如何創建一個函數？

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