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

Note: 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, um das Konzept der While-Schleife zu verstehen. Sie erstellen eine Schleife und fügen nach jedem Durchlauf 1 zur gespeicherten Variablen hinzu. Sie müssen die Schleife schließen, daher weisen wir R explizit an, die Schleife zu beenden, wenn die Variable 10 erreicht.

Note: 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