L'instruction if else
Une instruction if-else est un excellent outil pour le développeur qui tente de renvoyer une sortie basée sur une condition. En R, la syntaxe est:
if (condition) {Expr1} else {Expr2}
Nous voulons examiner si une variable stockée en tant que "quantité" est supérieure à 20. Si la quantité est supérieure à 20, le code affichera "Vous avez vendu beaucoup!" sinon Pas assez pour aujourd'hui.
# Create vector quantityquantity <- 25# Set the is-else statementif (quantity > 20) {print('You sold a lot!')} else {print('Not enough for today')}
Production:
## [1] "You sold a lot!"
Remarque : assurez-vous d'écrire correctement les indentations. Le code avec plusieurs conditions peut devenir illisible lorsque les indentations ne sont pas dans la bonne position.
L'instruction else if
Nous pouvons personnaliser davantage le niveau de contrôle avec l'instruction else if. Avec elif, vous pouvez ajouter autant de conditions que vous le souhaitez. La syntaxe est:
if (condition1) {expr1} else if (condition2) {expr2} else if (condition3) {expr3} else {expr4}
Nous sommes intéressés de savoir si nous avons vendu des quantités entre 20 et 30. Si nous le faisons, alors la pinte Journée moyenne. Si la quantité est> 30, nous imprimons Quelle belle journée !, sinon Pas assez pour aujourd'hui.
Vous pouvez essayer de changer le montant de la quantité.
# 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!')}
Production:
## [1] "Not enough for today"
Exemple 2:
La TVA a un taux différent selon le produit acheté. Imaginez que nous ayons trois types de produits différents avec une TVA différente appliquée:
| Catégories | Des produits | T.V.A. |
|---|---|---|
| UNE | Livre, magazine, journal, etc. | 8% |
| B | Légumes, viandes, boissons, etc. | dix% |
| C | Tee-shirt, jean, pantalon, etc… | 20% |
Nous pouvons écrire une chaîne pour appliquer le taux de TVA correct au produit qu'un client a acheté.
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)}
Production:
# A vat rate of 8% is applied. The total price is 10.8