R While-lus met programmeervoorbeelden

While Loop in R-programmering

Een While-lus in R-programmering is een instructie die blijft lopen totdat aan een voorwaarde na het while-blok is voldaan.

While Loop-syntaxis in R

Hieronder volgt de syntaxis voor While Loop in R-programmering:

while (condition) {
     Exp	
}

R While Loop-stroomdiagram

Note: Vergeet niet om op een bepaald punt een sluitingsvoorwaarde te schrijven, anders blijft de lus eindeloos doorgaan.

While Loop in R-programmeervoorbeelden

Voorbeeld 1

Laten we een heel eenvoudig doornemen R programmeren voorbeeld om het concept van while-lus te begrijpen. U maakt een lus en voegt na elke run 1 toe aan de opgeslagen variabele. Je moet de lus sluiten, daarom vertellen we R expliciet dat hij moet stoppen met herhalen wanneer de variabele 10 bereikt.

Note: Als u de huidige luswaarde wilt zien, moet u de variabele in de functie print() plaatsen.

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

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

Voorbeeld 2

Je hebt een aandeel gekocht voor een prijs van 50 dollar. Als de prijs onder de 45 zakt, willen we het shorten. Anders houden we het in onze portefeuille. De prijs kan fluctueren tussen -10 en +10 rond de 50 na elke lus. Je kunt de code als volgt schrijven:

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