使用lapply將函數應用於具有不同數量元素的列表

Question

我最近開始在R上編寫代碼，遇到了一個問題，看上去很多，但是我不知道該怎么辦。
我有一個像下面這樣的列表，我正在嘗試將此功能應用於此列表。 我期望找到的是每個錯誤和真實的單一值。 但是，當我使用lapply函數時，我得到以下警告：如果（x）{：條件的長度> 1，則僅使用第一個元素。 我在哪里犯錯？ 先感謝您。

function(x) {if(x)
{runif(1, IQ - VAR, IQ + VAR)} else {runif(1,0.20 - VAR , 0.20 + VAR)}}

[[1]]
[1] FALSE  TRUE

[[2]]
[1] FALSE  TRUE

[[3]]
[1] FALSE  TRUE

[[4]]
[1] FALSE FALSE FALSE  TRUE

[[5]]
[1] FALSE FALSE FALSE  TRUE

[[6]]
[1] FALSE FALSE FALSE  TRUE

[[7]]
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE

Answer 1

您的問題是在向量（列表元素）上使用if函數。 您應該使用ifelse ：

lapply(L, function(x){ifelse(x, runif(1, IQ - VAR, IQ + VAR), runif(1,0.20 - VAR , 0.20 + VAR))})

例如：

L = list(c(F,T),c(F,F,F,T))
VAR = 1
IQ = 3

lapply(L, function(x){ifelse(x,runif(1, IQ - VAR, IQ + VAR), runif(1,0.20 - VAR , 0.20 + VAR))})

[[1]]
[1] -0.1924877  2.0677188

[[2]]
[1] 1.158114 1.158114 1.158114 2.408010