Beberapa argumen (1)
Seperti yang Anda lihat pada contoh argumen opsional, fungsi dapat memiliki beberapa argumen. Ini dapat membantu memperluas fleksibilitas fungsi Anda. Mari kita lihat contohnya.
pow <- function(x, power = 2) {
x^power
}
pow(2)
[1] 4
pow(2, power = 3)
[1] 8
Alih-alih fungsi square(), sekarang kita memiliki versi yang bekerja dengan pangkat apa pun.
Argumen power bersifat opsional dan memiliki nilai bawaan 2, tetapi pengguna dapat dengan mudah mengubahnya. Ini juga merupakan contoh bagaimana Anda dapat menambahkan beberapa argumen. Perhatikan bahwa argumen dipisahkan dengan koma, dan nilai bawaan ditetapkan menggunakan tanda sama dengan.
Mari tambahkan lebih banyak fungsionalitas ke percent_to_decimal() yang memungkinkan Anda membulatkan persentase ke sejumlah digit tertentu.
Latihan ini adalah bagian dari kursus
R Tingkat Menengah untuk Keuangan
Petunjuk latihan
- Lengkapi bagian kosong pada fungsi
percent_to_decimal()yang ditingkatkan untuk melakukan hal berikut:- Tambahkan argumen opsional kedua bernama
digitsyang bernilai bawaan2. - Di dalam badan fungsi, bagi
percentdengan 100 dan simpan hasilnya kedecimal. - Gunakan fungsi
roundpadadecimal, dan atur argumen keduadigitsuntuk menentukan jumlah tempat desimal.
- Tambahkan argumen opsional kedua bernama
- Fungsi Anda juga akan bekerja pada vektor dengan panjang >1.
percentstelah didefinisikan untuk Anda. - Panggil
percent_to_decimal()padapercents. Jangan tentukan argumen opsional apa pun. - Panggil
percent_to_decimal()padapercentslagi. Tentukandigits = 4.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Percent to decimal function
percent_to_decimal <- function(percent, ___ = ___) {
___ <- percent / 100
___(decimal, ___)
}
# percents
percents <- c(25.88, 9.045, 6.23)
# percent_to_decimal() with default digits
___
# percent_to_decimal() with digits = 4
___