R While-Schleife mit Programmierbeispielen

While-Schleife in der R-Programmierung

Eine While-Schleife in der R-Programmierung ist eine Anweisung, die so lange ausgeführt wird, bis eine Bedingung nach dem While-Block erfüllt ist.

While-Schleifensyntax in R

Nachfolgend sehen Sie die Syntax für die While-Schleife in der R-Programmierung:

while (condition) {
     Exp	
}

Flussdiagramm der R-While-Schleife

Hinweis: Denken Sie daran, irgendwann eine Abschlussbedingung zu schreiben, sonst wird die Schleife endlos fortgesetzt.

While-Schleife in R-Programmierbeispielen

Beispiel 1

Lassen Sie uns eine ganz einfache Sache durchgehen R Programmierung Beispiel zum Verständnis der while-Schleife: Sie erstellen eine Schleife und erhöhen nach jedem Durchlauf die gespeicherte Variable um 1. Die Schleife muss beendet werden; daher weisen wir R explizit an, die Schleife zu beenden.ping wenn die Variable den Wert 10 erreicht.

Hinweis: Wenn Sie den aktuellen Schleifenwert sehen möchten, müssen Sie die Variable in die Funktion print() einschließen.

#Create a variable with value 1
begin <- 1

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

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

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

Ausgang:

## 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

Beispiel 2

Sie haben eine Aktie zum Preis von 50 Dollar gekauft. Wenn der Preis unter 45 fällt, wollen wir sie leerverkaufen. Andernfalls behalten wir sie in unserem Portfolio. Der Preis kann nach jeder Schleife um 10 zwischen -10 und +50 schwanken. Sie können den Code wie folgt schreiben:

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)
}

Ausgang:

## [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)

Ausgang:

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