IF, ELSE, ELSE IF-verklaring in R

De if else-verklaring

Een if-else-instructie is een geweldig hulpmiddel voor de ontwikkelaar die probeert een uitvoer te retourneren op basis van een voorwaarde. In R is de syntaxis:

if (condition) {
    Expr1 
} else {
    Expr2
}

We willen onderzoeken of een variabele die is opgeslagen als "hoeveelheid" groter is dan 20. Als de hoeveelheid groter is dan 20, zal de code "Je hebt veel verkocht!" afdrukken, anders is het niet genoeg voor vandaag.

# Create vector quantity
quantity <-  25
# Set the is-else statement
if (quantity > 20) {
    print('You sold a lot!')
} else {
    print('Not enough for today')  
}

Output:

## [1] "You sold a lot!"

Note: Zorg ervoor dat u de inspringingen correct schrijft. Code met meerdere voorwaarden kan onleesbaar worden als de inspringingen niet op de juiste positie staan.

De else if-verklaring

We kunnen het controleniveau verder aanpassen met de else if-instructie. Met elif kun je zoveel voorwaarden toevoegen als we willen. De syntaxis is:

if (condition1) { 
    expr1
    } else if (condition2) {
    expr2
    } else if  (condition3) {
    expr3
    } else {
    expr4
}

We zijn benieuwd of we hoeveelheden tussen de 20 en 30 hebben verkocht. Als dat zo is, dan is de pint Gemiddelde dag. Als de hoeveelheid > 30 is, drukken we Wat een geweldige dag! af, anders Niet genoeg voor vandaag.

U kunt proberen de hoeveelheid hoeveelheid te wijzigen.

# Create vector quantiy
quantity <-  10
# Create multiple condition statement
if (quantity <20) {
      print('Not enough for today')
} else if (quantity > 20  &quantity <= 30) {
     print('Average day')
} else {
      print('What a great day!')
}

Output:

## [1] "Not enough for today"

Voorbeeld 2:

De BTW heeft een verschillend tarief, afhankelijk van het gekochte product. Stel je voor dat we drie verschillende soorten producten hebben waarop verschillende BTW-niveaus van toepassing zijn:

Wij kunnen een keten schrijven om het juiste BTW-tarief toe te passen op het product dat een klant heeft gekocht.

category <- 'A'
price <- 10
if (category =='A'){
  cat('A vat rate of 8% is applied.','The total price is',price *1.08)  
} else if (category =='B'){
    cat('A vat rate of 10% is applied.','The total price is',price *1.10)  
} else {
    cat('A vat rate of 20% is applied.','The total price is',price *1.20)  
}

Output:

# A vat rate of 8% is applied. The total price is 10.8