R Repeat-Funktion, bis die Bedingung erfüllt

Question

Ich versuche, eine Stichprobe zu erzeugen, die bestimmte ausschließt „schlechte Daten.“ Ich weiß nicht, ob die Daten "schlecht" sind, bis ich sie einmal getestet habe. Also muss ich eine zufällige Auslosung von der Bevölkerung machen und sie dann testen. Wenn die Daten "gut" sind, dann behalte sie. Wenn die Daten "schlecht" sind, dann ziehe zufällig einen anderen und teste ihn. Ich möchte dies tun, bis meine Stichprobengröße 25 erreicht. Unten ist ein vereinfachtes Beispiel für meinen Versuch, eine Funktion zu schreiben, die dies tut. Kann mir bitte jemand sagen, was ich vermisse?

df <- data.frame(NAME=c(rep('Frank',10),rep('Mary',10)), SCORE=rnorm(20)) 
df 

random.sample <- function(x) { 
    x <- df[sample(nrow(df), 1), ] 
    if (x$SCORE > 0) return(x) 
#if (x$SCORE <= 0) run the function again 
} 

random.sample(df) 

Answer 1

Hier ist eine allgemeine Verwendung einer while Schleife:

random.sample <- function(x) { 
    success <- FALSE 
    while (!success) { 
    # do something 
    i <- sample(nrow(df), 1) 
    x <- df[sample(nrow(df), 1), ] 
    # check for success 
    success <- x$SCORE > 0 
    } 
    return(x) 
} 

Eine Alternative ist repeat (syntaktischer Zucker für while(TRUE)) zu verwenden und break:

random.sample <- function(x) { 
    repeat { 
    # do something 
    i <- sample(nrow(df), 1) 
    x <- df[sample(nrow(df), 1), ] 
    # exit if the condition is met 
    if (x$SCORE > 0) break 
    } 
    return(x) 
} 

, wo break Sie den repeat Block verlassen. Alternativ könnten Sie if (x$SCORE > 0) return(x) haben, um die Funktion direkt zu verlassen.

Answer 2

random.sample <- function(x) { 
    x <- df[sample(nrow(df), 1), ] 
    if (x$SCORE > 0) return(x) 
    Recall(x)# run the function again 
} 

random.sample(df) 
# NAME SCORE 
#14 Mary 1.252566 

Es scheint mir, dass dies auch funktionieren:

df$SCORE[ df$SCORE > 0 ][ sample(1:sum(df$SCORE > 0), 1) ] 
#[1] 0.6579631 

Answer 3

können Sie nur die Zeilen auswählen, um direkt zu probieren wie so (nur 5):

> df <- data.frame(NAME=c(rep('Frank',10),rep('Mary',10)), SCORE=rnorm(20)) 
> df[sample(which(df$SCORE>0), 5),] 


NAME  SCORE 
14 Mary 1.0858854 
10 Frank 0.7037989 
16 Mary 0.7688913 
5 Frank 0.2067499 
17 Mary 0.4391216 

Dies ist ohne Ersatz, für Bootstrap in replace=T.

Answer 4

Verwendung dieses nach dem ersten Probe

while (any(bad <- (x$SCORE <= 0))) 
    x[bad, ] <- df[sample(nrow(df), sum(bad)), ]