À l'aide de lapply avec si pour tester chaque élément dans une liste

Supposons que j'ai une liste:

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

Je veux tester si chaque élément de la liste est supérieur à 7 et de retourner une liste de 1 si c'est vrai et 0 si elle est fausse.

Cependant je dois utiliser lapply.

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

Bien sûr, aucune de ces travaux et je reçois l'erreur suivante.

Error: unexpected ',' in "lapply(alist, if,"
  • Je sais que vous voulez utiliser lapply mais: as.numeric(alist > 7) fonctionne très bien.
  • "vous devez utiliser lapply" == "stupide devoir à la maison" ?
  • Ha Ha yip Carl vous a cloué. J'avais eu, je pense, environ 30% de la façon de déterminer l'affectation lorsque je suis tombé sur cette. Pensé que c'était une bonne question, même si, comme lapply a ... comme argument et j'ai pensé que quelque part j'ai pu terminer l'instruction if.
InformationsquelleAutor rsgmon | 2012-10-28
  1. 20

    Il me fait de la peine de répondre à ça car c'est très R pour ce faire. Vous pourriez essayer d'être plus explicite et l'utilisation des parenthèses, comme dans:

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

    Ou la vectorisé ifelse 

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

    Ou le meilleur de tous:

    as.numeric(alist > 7)
    • +1 même que ma réponse, mais je voudrais faire une remarque de ifelse() un peu de non-intuitif que cela semble être un nouveau R de l'utilisateur. Drôle que je dis cela parce que la question immédiatement avant c'était somene se plaindre d'une fermeture d'erreur avec ifelse() lol.
    • Vous êtes très correct (OMI) sur ifelse. J'ai répondu et ifelse problème hier soir, comme bien (quand l'utilisateur doit avoir été à l'aide de if(){} else{})
    InformationsquelleAutor Tyler Rinker
  2. 2

    Deux autres:

    lapply(alist > 7, as.integer)

    ou

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