NA non sono consentiti nelle assegnazioni con subscript

Question

Ho un problema semplice, ma non ho potuto cogliere la logica per superarlo.

Ho i vettori numerici con NA e voglio applicare un'operazione dipendente da condizione.

Un semplice esempio simile al mio problema è:

x <- c(1,3,5,7,NA,2,4,6) 
x[x>=5] <- c(1:8)[x>=5] 
x[x<5] <- (c(1:8)*10)[x<5] 

restituisce l'errore "AN non sono ammessi nelle assegnazioni indicizzate", quindi mi piacerebbe sapere che cosa sarebbe una soluzione ragionevole per questo, dato che eseguire ogni attribuzione funziona separatamente come previsto.

desidero avere il risultato atteso:

[1] 10 20 3 4 NA 60 70 8 

Preferibilmente senza dover effettuare un ciclo, in quanto questa operazione è già in funzione per la modellazione nullo con un sacco di iterazioni che sta prendendo età.

Grazie in anticipo, Leonardo

Answer 1

La logica dovrà anche escludere le AN nel sottoinsieme. Vedi il seguente esempio. Notare che i vettori dei sottoinsiemi vengono memorizzati prima che venga modificato x.

x <- c(1,3,5,7,NA,2,4,6) 
subset1 <- x>=5 & !is.na(x) 
subset2 <- x<5 & !is.na(x) 

x[subset1] <- which(subset1) 
x[subset2] <- 10*which(subset2) 

Answer 2

Penso che si sta mescolanza assegnazione e subscripting. Credo che quello che stai cercando sia qualcosa di più vicino a questo:

x <- c(1,3,5,7,NA,2,4,6) 
x.greater <- c(1:8)[x>=5] 
x.less <- (c(1:8)*10)[x<5] 

x.greater 
# 3 4 NA 8 
x.less 
# 10 20 NA 60 70 

result <- c(x.greater, x.less) 
result 
# 3 4 NA 8 10 20 NA 60 70