Mahasiswa Teknik Informatika

UIN Maulana Malik Ibrahim Malang

2022-10-23

Nama-nama yang dipilih oleh pemrogram suatu fungsi bersifat arbitrer. Anda akan menggunakan fungsi dengan cara yang persis sama meskipun namanya berbeda. Demikian pula, saat menggunakan fungsi, Anda dapat memilih sendiri ekspresi apa yang akan menjadi nilai argumen. Contohnya anda ingin menghitung 75 pangkat (-7.4)

75 * exp(-7.4)
## [1] 0.04584396

Tapi kemungkinan besar itu − 7.4 dimaksudkan untuk mewakili sesuatu yang lebih umum. Misalnya, mungkin Anda menghitung berapa banyak obat yang masih ada di dalam tubuh sepuluh hari setelah dose 100 mg diberikan. Akan ada tiga kuantitas yang terlibat bahkan dalam perhitungan sederhana ini: dose, jumlah waktu sejak dosis diambil, dan apa yang disebut “konstanta waktu” untuk eliminasi obat melalui hati atau mekanisme lain.

Dalam menulis perhitungan, ada baiknya untuk memperjelas dan menjelaskan arti dari setiap besaran yang digunakan dalam perhitungan. Jadi, alih-alih 100 * exp(-7.4), Anda lebih baik menuliskan definisi fungsi pada perhitungan anda :

drug_remaining <- function(dose, duration, time_constant) {
  dose * exp(- duration / time_constant)
}

Kemudian, melakukan perhitungan untuk situasi tertentu yang dijelaskan di atas adalah masalah penggunaan fungsi:

drug_remaining(dose = 100, duration = 10, time_constant = 5)
## [1] 13.53353

Kita akan membuat grafik yang berhubungan dengan drug_remaining yang telah kita bahas dalam penggunaan argumen. Ingat bahwa drug_remaining()memiliki tiga argumen: dosis, waktu, dan konstanta_waktu. Grafik tertentu yang akan kita gambar menunjukkan sisa obat sebagai fungsi durasi. Artinya, operasi grafik akan sehubungan dengan waktu . Kami akan mempertimbangkan, katakanlah, dosis 100 mg obat dengan konstanta waktu 5 hari, mungkin dengan melihat interval durasi dari 0 hari hingga 25 hari.

Kita akan menggunakan operasi yang disediakan oleh paket mosaicand mosaicCalcuntuk R. Operasi dari paket ini memiliki notasi yang sangat spesifik untuk diekspresikan sehubungan dengan . Notasi tersebut menggunakan karakter tilde, ~. Berikut cara menggambar grafik yang kita inginkan, menggunakan slice_plot()operasi paket:

library(mosaicCalc)
## Loading required package: mosaic
## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2
## 
## The 'mosaic' package masks several functions from core packages in order to add 
## additional features.  The original behavior of these functions should not be affected by this.
## 
## Attaching package: 'mosaic'
## The following objects are masked from 'package:dplyr':
## 
##     count, do, tally
## The following object is masked from 'package:Matrix':
## 
##     mean
## The following object is masked from 'package:ggplot2':
## 
##     stat
## The following objects are masked from 'package:stats':
## 
##     binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
##     quantile, sd, t.test, var
## The following objects are masked from 'package:base':
## 
##     max, mean, min, prod, range, sample, sum
## Loading required package: mosaicCore
## 
## Attaching package: 'mosaicCore'
## The following objects are masked from 'package:dplyr':
## 
##     count, tally
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D
slice_plot(
  drug_remaining(dose = 100, time_constant = 5, duration = t) ~ t, 
  domain(t = 0:25))