Pourquoi ma liste ne fonctionne pas

Question

J'ai une fonction qui vérifie ma liste. J'ai une liste avec deux vecteurs. Au lieu de répéter mon code, j'ai essayé d'utiliser la boucle for. Cependant, la boucle for ne fonctionne pas comme prévu.

Voici mon code:

x <- c(2,3,4,5) 
y <- c(2,4,6,7) 
z <- list(x,y) 
pscale <- numeric() 
pscale <- list() 
for(i in 1:4){#length of my vector 
for(j in 1:2){#length of z 
pscale[[j]][[i]] <- ifelse(z[[j]][[i]] %in% c(2,9,10),0.01,1) 
} 
} 
Error in `*tmp*`[[j]] : subscript out of bounds 

Answer 1

Cela devrait fonctionner.

x <- c(2,3,4,5) 
y <- c(2,4,6,7) 
z <- list(x,y) 
pscale <- list() 
length(pscale) <- 2 # set length to the number of vectors 
for(i in 1:4){#length of my vector 
    for(j in 1:2){#length of z 
    pscale[[j]][i] <- ifelse(z[[j]][i] %in% c(2,9,10),0.01,1) 
    } 
} 

Answer 2

Je suggère de déclarer pscale comme matrice:

x <- c(2,3,4,5) 
y <- c(2,4,6,7) 
z <- list(x,y) 
pscale <- matrix(rep(NA,length(x)*length(z)), length(z), length(x)) 
for(i in 1:4) { 
for(j in 1:2) { 
    pscale[j,i] <- ifelse(z[[j]][[i]] %in% c(2,9,10), 0.01, 1) 
} 
} 
pscale 

#  [,1] [,2] [,3] [,4] 
# [1,] 0.01 1 1 1 
# [2,] 0.01 1 1 1 

Sinon, définir pscale comme une liste:

x <- c(2,3,4,5) 
y <- c(2,4,6,7) 
z <- list(x,y) 
pscale <- vector(length(z), mode="list") 
for(i in 1:4) { 
for(j in 1:2) { 
    pscale[[j]][[i]] <- ifelse(z[[j]][[i]] %in% c(2,9,10), 0.01, 1) 
} 
} 
pscale 

# [[1]] 
# [1] 0.01 1.00 1.00 1.00 
# 
# [[2]] 
# [1] 0.01 1.00 1.00 1.00