Pernyataan IF, ELSE, ELSE IF pada R
Pernyataan if else
Pernyataan if-else adalah alat yang hebat bagi pengembang yang mencoba mengembalikan keluaran berdasarkan suatu kondisi. Di R, sintaksnya adalah:
if (condition) { Expr1 } else { Expr2 }
Kami ingin memeriksa apakah variabel yang disimpan sebagai "kuantitas" lebih dari 20. Jika kuantitas lebih besar dari 20, kode akan mencetak "Anda menjual banyak!" jika tidak, Tidak cukup untuk hari ini.
# Create vector quantity quantity <- 25 # Set the is-else statement if (quantity > 20) { print('You sold a lot!') } else { print('Not enough for today') }
Keluaran:
## [1] "You sold a lot!"
Note: Pastikan Anda menulis lekukan dengan benar. Kode dengan beberapa kondisi bisa menjadi tidak terbaca jika lekukannya tidak pada posisi yang benar.
Pernyataan else if
Kita selanjutnya dapat menyesuaikan level kontrol dengan pernyataan else if. Dengan elif, Anda dapat menambahkan kondisi sebanyak yang kita inginkan. Sintaksnya adalah:
if (condition1) { expr1 } else if (condition2) { expr2 } else if (condition3) { expr3 } else { expr4 }
Kami tertarik untuk mengetahui apakah kami menjual dalam jumlah antara 20 dan 30. Jika ya, maka rata-rata pint per hari. Jika jumlahnya > 30, kami akan mencetak Hari yang luar biasa!, jika tidak, Tidak cukup untuk hari ini.
Anda dapat mencoba mengubah jumlah kuantitasnya.
# 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!') }
Keluaran:
## [1] "Not enough for today"
Contoh 2:
PPN memiliki tarif yang berbeda-beda sesuai dengan produk yang dibeli. Bayangkan kita memiliki tiga jenis produk berbeda dengan penerapan PPN berbeda:
Kategori | Produk | PPN |
---|---|---|
A | Buku, majalah, koran, dll. | 8% |
B | Sayuran, daging, minuman, dll. | 10% |
C | Kaos oblong, jean, celana, dll. | 20% |
Kita dapat menulis rantai untuk menerapkan tarif PPN yang benar pada produk yang dibeli pelanggan.
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) }
Keluaran:
# A vat rate of 8% is applied. The total price is 10.8