usar - uso de sapply en r

Usar lapply with if para probar cada elemento en una lista

Question

Supongamos que tengo una lista:

alist<- list(4,6,8,9)

Quiero probar si cada elemento de lista es mayor que 7 y devolver una lista de 1 si es verdadera y 0 si es falsa.

Sin embargo, debo usar lapply.

lapply(alist,if,>7,1) or lapply(alist,if,cond>7,1)

Por supuesto, ninguno de estos trabajos y sigo recibiendo el siguiente error.

Error: unexpected '','' in "lapply(alist, if,"

Answer 1

Me duele responder esto porque es muy poco R hacer esto. Podrías tratar de ser más explícito y usar corchetes como en:

lapply(alist, function(x) if (x > 7) {1} else {0})

O el ifelse vectorizado

lapply(alist, function(x) ifelse(x > 7, 1, 0))

O lo mejor de todo:

as.numeric(alist > 7)

Answer 2

Otros dos:

lapply(alist > 7, as.integer)

o

lapply(alist > 7, ifelse, 1, 0)