限制參數號

Question

我期待限制R.我見過this例如涉及限制值字符參數k可以取值範圍，但我感興趣的數值。

爲了進一步解釋什麼是我要找的，k可以在1到10之間，但如果沒有指定值具有的默認值3。

我知道我可以做到以下幾點：

foo <- function(k = 3) { #check k is in range of 1 and 10 here #if not in range then set it to 3 }

我只是想知道是否有這樣做的更多的R-式的方式。

Answer 1

如果k是一個整數，試試這個：

if (!(k %in% 1:10)) k = 3 

如果k是任何數字，這可能幫助：

k = ifelse(k < 1 | k > 10, 3, k) 

爲了使這一個功能，你建議，你會去：

foo <- function(k = 3) { 
    k = ifelse(k < 1 | k > 10, 3, k) 
    return(k) 
} 

Answer 2

請注意，有一個小的開銷與ifelse f這可能無關緊要。雖然，爲了完整，這種解決方案將做到並且更快

> f1 <- function(k = 3) 
+ ifelse(k < 1 | k > 10, 3, k) 
> 
> f2 <- function(k = 3){ 
+ test <- k < 1 | k > 10 
+ k * (!test) + 3 * test 
+ } 
> 
> x <- rnorm(1e5, sd = 10) 
> all.equal(f1(x), f2(x)) 
[1] TRUE 
> 
> microbenchmark::microbenchmark(f1(x), f2(x)) 
Unit: milliseconds 
    expr  min  lq  mean median  uq  max neval 
f1(x) 7.416093 9.543104 13.464866 10.038314 10.823893 80.44003 100 
f2(x) 1.594468 2.060443 3.983543 2.224986 3.647207 71.04627 100