R While Loop med programmeringseksempler

Mens Loop in R-programmering

A mens løkke I R gentager man en kodeblok, så længe dens betingelse forbliver SAND. Betingelsen testes før hvert gennemløb, så en while-løkke kan køre nul gange, hvis betingelsen er FALSK fra starten.

Mens Loop Syntax i R

Følgende er syntaksen for While Loop in R-programmering:

while (condition) {
     Exp	
}

R Mens Loop Flowchart

BemærkNoget i løkken skal til sidst gøre betingelsen FALSK. Hvis intet gør det, kører løkken for evigt, og du skal afbryde R med Esc eller Ctrl+C.

mens Loop vs for Loop vs gentag Loop i R

R tilbyder tre toiletterping konstruktioner, og valget mellem dem kommer an på, om du på forhånd ved, hvor mange iterationer du har brug for.

# repeat always runs at least once
count <- 1
repeat {
    print(count)
    count <- count + 1
    if (count > 5) break
}

Aktieeksemplet ovenfor passer naturligt ind i et stykke tid: du kan ikke vide på forhånd, hvor mange tilfældige trækninger der skal til, før prisen falder til 45.

While-løkke i R: Eksempler

Eksempel 1

Start med det enklest mulige R programmering eksempel. Du opretter en tæller og lægger 1 til den ved hver gennemgang. Løkken skal kunne slutte, så betingelsen fortæller eksplicit R, at den skal stoppe, når variablen passerer 10.

Bemærk: Hvis du vil se den aktuelle sløjfeværdi, skal du pakke variablen inde i funktionen print().

#Create a variable with value 1
begin <- 1

#Create the loop
while (begin <= 10){

#See which loop we are on
cat('This is loop number', begin, '\n')

#add 1 to the variable begin after each loop
begin <- begin+1
print(begin)
}

Output:

## This is loop number 1[1] 2
## This is loop number 2[1] 3
## This is loop number 3[1] 4
## This is loop number 4[1] 5
## This is loop number 5[1] 6
## This is loop number 6[1] 7
## This is loop number 7[1] 8
## This is loop number 8[1] 9
## This is loop number 9[1] 10
## This is loop number 10[1] 11

Eksempel 2

Antag, at du har købt en aktie til 50 dollars. Hvis prisen falder til 45 eller derunder, vil du shorte den, ellers fortsætter du med at holde. Hvert gennemløb af løkken flytter prisen tilfældigt med op til 10 i begge retninger omkring 50:

set.seed(123)
# Set variable stock and price
stock <- 50
price <- 50

# Loop variable counts the number of loops 
loop <- 1

# Set the while statement
while (price > 45){

# Create a random price between 40 and 60
price <- stock + sample(-10:10, 1)

# Count the number of loop
loop <- loop + 1

# Print the number of loop
print(loop)
}

Output:

## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] 7

cat('it took',loop,'loop before we short the price. The lowest price is',price)

Output:

## it took 7 loop before we short the price. The lowest price is 40

Sådan bruger du break og next i en While-løkke

To nøgleord ændrer det normale flow i enhver R-løkke.

• bryde afslutter løkken med det samme, spring overping hver resterende iteration.
• næste afbryder kun den aktuelle iteration og hopper direkte til den næste betingelsestest.

# break: stop as soon as a condition is met
i <- 1
while (i <= 100) {
    if (i * i > 50) {
        cat('First square above 50 is', i * i, '\n')
        break
    }
    i <- i + 1
}

# next: skip the even numbers
i <- 0
while (i < 10) {
    i <- i + 1
    if (i %% 2 == 0) next
    print(i)
}

En fælde værd at kende. I en while-løkke hopper next tilbage til betingelsestesten uden kører noget under det. Hvis din tæller øges i bunden af ​​​​delen, springer næste trin over, og løkken hænger for evigt. Det er derfor, det andet eksempel øger før den næste sætning i stedet for efter den.

Almindelige While-løjfejl og uendelige løkker

Fire fejl tegner sig for næsten alle mislykkede while-løkker.

• Tælleren opdateres aldrig. Hvis man glemmer inkrementet, forbliver betingelsen permanent SAND. Tryk på Esc i RStudio eller Ctrl+C i en terminal for at afbryde.
• Betingelsen returnerer NA. Hvis en værdi i testen er NA, stopper R med "manglende værdi hvor TRUE/FALSE er nødvendig". Beskyt den med is.na() eller med isTRUE().
• Betingelsen er længere end ét element. Siden R 4.2 er en betingelse med en længde større end én en fejl snarere end en advarsel. Omslut den med any() eller all().
• Flydende komma-sammenligning bliver aldrig FALSK. mens (x != 0.3) kan loope for evigt, fordi 0.1 + 0.2 ikke er præcis 0.3. Sammenlign i stedet med en tolerance ved at bruge abs(x – 0.3) > 1e-8.

# Safety valve: cap the number of iterations
iter <- 0
while (price > 45 && iter < 1000) {
    price <- stock + sample(-10:10, 1)
    iter <- iter + 1
}

At tilføje et maksimalt iterationsantal er en billig forsikring i enhver løkke, hvis udgang afhænger af tilfældige eller eksterne data.

Ofte Stillede Spørgsmål