関数の入力数の可変 - R

Question

AとBはベクトルを入力として示しています。私の質問は、私がこの機能のために異なる数の獣医師を持つことができる方法です。私の機能では、nは固定されており、サンプル数を示しています。たとえば、この場合でも私の関数が動作する必要があります：sample_sum (A, B, C, D, E, n, ...)。 また、ベクトルAとBのサンプル（つまり、sample_A <- qss(A, n=n, ...)）を入手する部分については、forのループを使用していない異なる数のベクトルに変更する方法があります。forループが十分に速くないためです。

おかげ

sample_sum <- function(A, B, n, ...) 
{ 
    qss <- function(X, n, ...) 
    { 
    r_X <- range(X) 
    dens_X <- density(X, ...) 
    sample(dens_X$x, size=n, prob=dens_X$y, replace=TRUE) 
    } 
sample_A <- qss(A, n=n, ...) 
sample_B <- qss(B, n=n, ...) 
sample_A + sample_B 
} 

Answer 1

私は何が必要だと思う以下の通りです：

new_sample_sum <- function(my_vector_list, n, ...) 
{ 
    qss <- function(X, n, ...) 
    { 
    r_X <- range(X) 
    dens_X <- density(X, ...) 
    sample(dens_X$x, size=n, prob=dens_X$y, replace=TRUE) 
    } 

    rowSums(sapply(my_vector_list, qss, n = n)) 

} 

あなたが複数のベクターをあなたのベクトルリストでを入れ、その後、ベクトルの数を気にすることなく、リストの上に計算を行うことができます。計算の簡単な注記では、サプリはリスト内のすべてのベクトルをループし、テーブルを返します。各ベクトルにqssを適用したすべての結果が返されます（すべてのベクトルに対して、結果はサプリーが返すテーブルの1つのカラムです） 。関数の最後のステップでベクトルを追加するので、すべての結果を含むテーブルのrowSumsを実行します。

性と一貫性を証明するために：

set.seed(1) 
x <- c(1,2,3,4) 
y <- c(6,7,9,0) 
z <- c(2,2,2,2) 

> sample_sum(x, y, n=2) 
[1] 6.545129 13.474390 

> new_sample_sum(list(x, y), n = 2) 
[1] 6.545129 13.474390 

以上のベクトルを持つ：

sample_sum <- function(A, B, C, n, ...) 
{ 
    qss <- function(X, n, ...) 
    { 
    r_X <- range(X) 
    dens_X <- density(X, ...) 
    sample(dens_X$x, size=n, prob=dens_X$y, replace=TRUE) 
    } 
    sample_A <- qss(A, n=n, ...) 
    sample_B <- qss(B, n=n, ...) 
    sample_C <- qss(C, n=n, ...) 
    sample_A + sample_B + sample_C 
} 

set.seed(1) 
> sample_sum(x, y, z, n = 2) 
[1] 6.102482 15.450364 
set.seed(1) 
> new_sample_sum(list(x, y, z), n = 2) 
[1] 6.102482 15.450364 

Answer 2

だけで動的ベクトル引数のサイズを決定するためにn=length(A)を使用しています。