De if else-verklaring
Een if-else-instructie is een geweldig hulpmiddel voor de ontwikkelaar die een uitvoer probeert 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" hoger is dan 20. Als de hoeveelheid groter is dan 20, zal de code "Je hebt veel verkocht!" anders niet genoeg voor vandaag.
# Create vector quantityquantity <- 25# Set the is-else statementif (quantity > 20) {print('You sold a lot!')} else {print('Not enough for today')}
Uitgang:
## [1] "You sold a lot!"
Opmerking : zorg ervoor dat u de inspringingen correct schrijft. Code met meerdere voorwaarden kan onleesbaar worden als de inspringingen niet op de juiste plaats staan.
De else if-verklaring
We kunnen het controleniveau verder aanpassen met de else if-instructie. Met elif kunt u 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 we dat doen, dan is de gemiddelde pintdag. Als de hoeveelheid> 30 is, drukken we Wat een geweldige dag !, anders Niet genoeg voor vandaag.
U kunt proberen de hoeveelheid te wijzigen.
# Create vector quantiyquantity <- 10# Create multiple condition statementif (quantity <20) {print('Not enough for today')} else if (quantity > 20 &quantity <= 30) {print('Average day')} else {print('What a great day!')}
Uitgang:
## [1] "Not enough for today"
Voorbeeld 2:
De btw heeft een ander tarief afhankelijk van het gekochte product. Stel je voor dat we drie verschillende soorten producten hebben waarop verschillende btw wordt toegepast:
| Categorieën | Producten | VAT |
|---|---|---|
| EEN | Boek, tijdschrift, krant, enz ... | 8% |
| B. | Groente, vlees, drank, enz ... | 10% |
| C | T-shirt, jeans, broek, enz ... | 20% |
We kunnen een ketting schrijven om het juiste btw-tarief toe te passen op het product dat een klant heeft gekocht.
category <- 'A'price <- 10if (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)}
Uitgang:
# A vat rate of 8% is applied. The total price is 10.8