Null-Division in R

Gibt es einen einfachen Weg, um 0 Fehler " division in R. Insbesondere

a <- c(1,0,2,0)
b <- c(3,2,1,0)
sum(b/a)

Dieser code gibt einen Fehler aufgrund einer division durch null.
Ich möchte einen Weg zu definieren, alles andere/0 = 0, so dass diese Art von Betrieb würde weiterhin gültig sein.

InformationsquelleAutor Ashin Mukherjee | 2012-10-27
  1. 14

    Gut, lassen Sie uns zurück bis eine minute. R NICHT einen Fehler zurück. Es ist ganz richtig, NaN zurück. Sie hätten besser einen verdammt guten Grund für die Ablehnung der NaN-Werte in Ihre Arbeit. Warum ermöglichen Sie jedem b element zu null in der ersten Stelle? Sie müssen darüber nachdenken, was der code eigentlich tun soll, und was es bedeutet (statistisch, sagen), um fröhlich werfen Sie alle den Fällen, in denen b[j]==0 .

    InformationsquelleAutor Carl Witthoft
  2. 8

    Was Sie ist, setzen Sie alle Elemente in den Nenner auf 0 zu NA und dann ausschließen NA? in Ihrem sum?

    a[a==0] <- NA
sum(b/a, na.rm=TRUE)
#-----
[1] 3.5

    Oder ohne änderung a: sum(b/ifelse(a==0,NA,a), na.rm = TRUE)

    • oder sum(ifelse(a==0, 0, b/a))
    • Vergleicht man die zahlen um 0 mit == funktioniert für ganze zahlen, aber ist riskant für floating-point-zahlen. Finden Sie in der R FAQ 7.31 auf dieser. Besser, etwas zu verwenden, wie abs(c(1,0,2,1e-9))<1e-6 zu vermeiden, ausgeführt in Konflikt mit der Maschine Genauigkeit Fragen.
    InformationsquelleAutor Chase
  3. 7

    Könnte man ändern die Funktion "/", um eine Ausnahme für die null:

    "/" <- function(x,y) ifelse(y==0,0,base:::"/"(x,y))

    Beispiel:

    > 10/0
[1] 0

    Dies ist sehr riskant, obwohl zum Beispiel könnte es brechen anderer Leute code. Wenn Sie dies tun wollen, ist es wahrscheinlich eine gute Idee, die Zuweisung unterschiedlicher Betreiber nicht verändert /. Auch macht es mathematisch keinen Sinn!

    • Geez, Sacha, Sie ziemlich viel downvoted sich w/ der Letzte Satz 🙂
    • Ich kümmern sich nicht über die downvotes, aber ich weiß nicht wirklich sehen, warum bekomme ich hier für die Angabe der genauen Antwort auf die Frage.
    • Ich war es nicht. Meine Vermutung ist, jemand ist paranoid über überladung von Operatoren 🙁
    InformationsquelleAutor Sacha Epskamp
  4. 6

    Wenn Sie möchten, Maske alle NaN und Inf Ergebnisse, versuchen Sie so etwas wie:

    a <- c(1,0,2,0)
b <- c(3,2,1,0)
result <- b/a
sum(result[is.finite(result)])
[1] 3.5

    Oder alle in einer Zeile:

    sum((b/a)[is.finite(b/a)])
[1] 3.5
    InformationsquelleAutor thelatemail
  5. 1

    Ich arbeitete nur auf die situation ähnlich.
    Dies funktioniert auch mit ifelse():

    sum(ifelse(a==0,0,b/a))
    InformationsquelleAutor Anisha Singhal
Schreibe einen Kommentar