Erhöhen Zähler in einer for-Schleife in R

Hallo an alle ich habe ein problem mit einem counter, die ich erstellt habe in einer for-Schleife. Hier ist der code.

n1<- 0
n2<- 0
n<- 20
f<- rep(NA,20)
set.seed(10) 
x<- runif(20)
for(i in 1:20) {
f[i]<- ifelse(x[i]<0.5, 'a', 'b')
if((n1-n2)==2) {
break
 }
 if(f[i]=='a')  
n1<- n1 + 1 else n2<- n2 + 1 # n1 counts a's n2 counts b's
}

[1] "b" "a" "a" "b" "a" "a" "a" NA  NA  NA  NA  NA  NA  NA  NA  NA  NA  NA  NA  NA

Wie Sie sehen können aus dem Ergebnis Anzahl der a ' s=5 und b=2 . Aber wenn ich Anrufe, n1 und n2 gibt es 4 für n1, die ist falsch . Warum ist das so? Wie bin ich falsch ? Vielen Dank im Voraus .

Ich starten Stichproben a und b ist mit einer Wahrscheinlichkeit von 0.5 .20 insgesamt. An einem gewissen Punkt, die ich nicht im Voraus wissen, die Anzahl der a 's - die Anzahl der b' s übersteigt, 2. Wenn dies geschieht, ich will, dass die ziehungswahrscheinlichkeit zu ändern 0,2 Das ist, was ich versuche zu erreichen.

  • Sie wirklich brauchen, um lernen zu verwenden ifelse richtig. Verwenden Sie es in der Mitte einer for-Schleife wie das ist "einfach falsch".
  • Wenn ich nicht und verwenden Sie Probe statt, wie kann ich ermitteln in die Schleife, wenn die Bedingung n1-n2==2 erfüllt ist? . Wie kann ich break die Schleife an genau diesem Punkt an und fahren Sie mit dem nächsten iteration ändern der Sampling-Wahrscheinlichkeit?
  • Ich sagte nicht: nicht für die Verwendung einer for-Schleife (obwohl ich denke, Sie haben schon eine viel bessere alternative unten). Ich wurde sagen, dass mit ifelse() mit Länge-1 Vektoren wurde die Art von albern. Wenn Sie eine Schleife haben, dann sollten Sie mit if(){}else{}
  • Ich benutze ifelse hier statt Probe, die falsch sein können. Aber ich kann immer noch nicht verstehen, warum a 's und b' s werden nicht richtig gezählt und in der Schleife
  • Drucken x und f ich sehe keine Fehler. Was ist nicht "richtig gezählt". Vielleicht müssen Sie sich ?sum.
  • Ich habe es einfach gemacht. Vielen Dank für Ihre Zeit .
  • Also das grundlegende problem scheint zu sein, dass Sie brechen aus der Schleife, bevor der Letzte Graf Vorgang abgeschlossen ist?
  • Ja, denke ich . Brechen aus der Schleife würde mir helfen zu erkennen die genaue iteration, wo n1-n2 Bedingung ist satitsfied
  • Dann sollten Sie Inkrementieren jeder Zähler vor der Pause.

InformationsquelleAutor Manos | 2013-12-01
  1. 8

    ifelse ist vektorbasiert, so dass keine Notwendigkeit zur Verwendung eines for-loop hier. Diese, wie Sie es verwenden sollten:

    set.seed(10) 
x <- runif(20)
f <- ifelse(x<0.5, 'a', 'b')

    Dann Verwenden table zu zählen, vorkommen:

    table(f)
f
 a  b 
13  7

    Bekommen n1 :

    n1 <- table(f)[['a']]

    BEARBEITEN OP ändern möchte der Stichprobe nach dem auftreten von a und b ist. Sollten Sie verwenden if und else nicht ifelse. Sollten Sie auch preallocate Speicher für den Vektor f. 

    n1 <- 0 ; n2 <- 0
N <- 20
f <- vector(mode='character',N)
set.seed(10)
x<- runif(N)
for(i in seq(N)) {
     if (x[i] <0.5){ 
        f[i] <- 'a'
        n1 <- n1 +1
     } else {
        f[i] <- 'b'
        n2 <- n2 +1
     }
    if((n1-n2)==2) x <- runif(N)  ## condition to regenerate sample
}
    • Ich habe eine for-Schleife verwenden, weil ich möchte, zu ermitteln, in welchem Schritt die Bedingung n1-n2==2 erfüllt ist. Das ist, warum ich bin versucht, zu zählen, a und b ist separat . Ich will zu verwenden, deren Differenz als Bedingung in der Schleife .
    • Sie können sehen, meine zu Bearbeiten
    • Ich möchte wissen, der Unterschied zwischen a und b ist bei jedem Schritt von meinem loop so kann ich Pause hab ich, wenn a-b=2
    • es ist genau das, was ich getan habe.
    • Ich sah es, Dank viel . So, nachdem der Zustand, den ich ändern kann, die sample-Wahrscheinlichkeit von 0,2 rechts?
    • Das ist genau das, was ich wollte . Vielen Dank agstudy für Ihre Hilfe. es war wirklich erhellend!

    InformationsquelleAutor agstudy
Schreibe einen Kommentar