Rのリファレンスで変数を渡すには？

Question

私は次の関数で変数vとindを上書きすることができますどのようにお願いしたいと思います：

repcomb <- function(v,n,ind) 
{ 
    k <- length(v) 
    if(ind == 0) 
    { 
     for (i in 1:k) v[i] <- 1 
     ind <- 1 
     return 
    } 
    for (i in k:1) 
    { 
     if(v[i] != n) 
     { 
     for (j in k:i) v[j] <- v[i] + 1 
     return 
     } 
    } 
    ind = 0 
} 

vとindを更新するための最も簡単な方法は何ですか？

Answer 1

これが最も簡単な方法です：

repcomb <- function(v,n,ind) 
{ 
    k <- length(v) 
    if(ind == 0) 
    { 
    for (i in 1:k) v[i] <- 1 
    ind <- 1 
    return(list(v=v, ind=ind)) 
    } 
    for (i in k:1) 
    { 
    if(v[i] != n) 
    { 
     for (j in i+1:k) v[j] <- v[i] + 1 
     v[i] <- v[i] + 1 
     return(list(v=v, ind=ind)) 
    } 
    } 
    ind = 0 
    return(list(v=v, ind=ind)) 
} 

res <- repcomb(1:5, 4, 2) 
v <- res$v 
ind <- res$ind 

Answer 2

あなたが関数内で設定されたパラメータの値を取り戻すしたい場合は、例えば、eval.parent(substitute(val<-new_val))を使用することができます。

f_sqr <- function(val){ 
    new_val <- val^2 
    eval.parent(substitute(val<-new_val)) 
} 

あなたの場合それを呼び出す：

val <- 5 
f_sqr(val) 
val 
#[1] 25 

パラメータの値を変更しないでください。代わりに、新しい変数にコピーし、コード内で何をしたいのかを行い、最後に新しい変数の値をパラメータ変数に設定します。独自の機能については

、これはあなたの最初のifのために何をすべきかです：

repcomb <- function(v, n, ind) 
{ 
    k <- length(v) 
    if (ind == 0) 
    { 
     new_v <- v 
     for (i in 1:k) new_v[i] <- 1 
     # ind <- 1 
     new_ind <- 1 
     eval.parent(substitute(ind<-new_ind)) 
     eval.parent(substitute(v<-new_v)) 
    } 
} 

あなたはそれを呼び出す場合はその後、変更を取り戻すます：

に対応し

v <- 1:5 
n <- 3 
ind <- 0 
repcomb(v, n, ind) 
v 
#[1] 1 1 1 1 1 
ind 
#[1] 1 

、他の部分はあなたが望むものに合うように変更することができます。