如何分別獲得第95和第5百分位數？

Question

我有數據（例如d和di），我想做一些計算。

數據：

d= 1:20 
xi= 2:21 

我想用這個公式（使用95和單獨第5百分位d和十一）：

  res= d(95th)-d(5th)/xi(95th)+xi(5th) 
      res2= res + xi(5th) 

我們得到使用本95和第5百分功能（由用戶提供的計算器）：

fun <- function(x){ 
quantiles <- quantile(x, c(.05, .95)) 
x[ x < quantiles[1] ] <- quantiles[1] 
x[ x > quantiles[2] ] <- quantiles[2] 
x 
        } 

但這不適用於我的情況我想在上面的公式中分別使用第95和第5百分位數。

Answer 1

這是你在找什麼？

your_fun <- function(x,y){ 
    qx <- quantile(x,c(.05,.95)) 
    qy <- quantile(y,c(.05,.95)) 
    out <- diff(qx)/diff(qy) 
    out2 <- out + qy[1] 

    names(out) <- NULL 
    names(out2) <- NULL 
    list(res=out,res2=out2) 
} 

your_fun(d,xi) 

這給

$res 
[1] 1 

$res2 
[1] 3.95