Jei dar teiginys
„If-else“ sakinys yra puikus įrankis kūrėjui, bandančiam grąžinti išvestį pagal sąlygą. R yra sintaksė:
if (condition) {Expr1} else {Expr2}
Norime ištirti, ar kintamasis, saugomas kaip „kiekis“, yra didesnis nei 20. Jei kiekis yra didesnis nei 20, kodas atspausdins „Jūs pardavėte daug!“ kitaip Šiandien nepakanka.
# Create vector quantityquantity <- 25# Set the is-else statementif (quantity > 20) {print('You sold a lot!')} else {print('Not enough for today')}
Išvestis:
## [1] "You sold a lot!"
Pastaba : įsitikinkite, kad teisingai parašėte įtraukas. Kodas su keliomis sąlygomis gali būti neįskaitomas, kai įtraukos nėra teisingoje padėtyje.
Kitas, jei teiginys
Mes galime toliau pritaikyti valdymo lygį su kita if sakiniu. Su „elif“ galite pridėti tiek sąlygų, kiek mes norime. Sintaksė yra:
if (condition1) {expr1} else if (condition2) {expr2} else if (condition3) {expr3} else {expr4}
Mums įdomu sužinoti, ar pardavėme kiekius nuo 20 iki 30. Jei taip, tada pintos vidutinė diena. Jei kiekis yra> 30, atspausdiname kokia puiki diena !, kitaip šiandien nepakanka.
Galite pabandyti pakeisti kiekio kiekį.
# 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!')}
Išvestis:
## [1] "Not enough for today"
2 pavyzdys:
PVM tarifas skiriasi atsižvelgiant į įsigytą produktą. Įsivaizduokite, kad turime tris skirtingus produktus, kuriems taikomas skirtingas PVM:
| Kategorijos | Produktai | PVM |
|---|---|---|
| A | Knyga, žurnalas, laikraštis ir kt. | 8% |
| B | Daržovės, mėsa, gėrimai ir kt. | 10% |
| C | Marškinėliai, džinsai, kelnaitės ir kt. | 20% |
Mes galime parašyti grandinę, kad kliento įsigytam produktui būtų taikomas teisingas PVM tarifas.
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)}
Išvestis:
# A vat rate of 8% is applied. The total price is 10.8
