Nama : Abdan Nawwaf El Hibban

NIM : 230605110066

Dosen : Prof. Dr. Suhartono,M.Kom

Prodi : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

library(mosaicCalc)
slice_plot(t * exp(t) ~ t, bounds(t=0:10))

head(Engines)
## # A tibble: 6 × 9
##   Engine            mass ncylinder strokes displacement  bore stroke   BHP   RPM
##   <chr>            <dbl>     <dbl>   <dbl>        <dbl> <dbl>  <dbl> <dbl> <dbl>
## 1 Webra Speedy     0.135         1       2          1.8  13.5   12.5  0.45 22000
## 2 Motori Cipolla   0.15          1       2          2.5  15     14    1    26000
## 3 Webra Speed 20   0.25          1       2          3.4  16.5   16    0.78 22000
## 4 Webra 40         0.27          1       2          6.5  21     19    0.96 15500
## 5 Webra 61 Blackh… 0.43          1       2         10    24     22    1.55 14000
## 6 Webra 6WR        0.49          1       2         10    24     22    2.76 19000
gf_point(stroke ~ Engines$displacement, data = Engines)
## Warning: Use of `Engines$displacement` is discouraged.
## ℹ Use `displacement` instead.

datamesin <- Engines[1:10,]
datamesin
## # A tibble: 10 × 9
##    Engine           mass ncylinder strokes displacement  bore stroke   BHP   RPM
##    <chr>           <dbl>     <dbl>   <dbl>        <dbl> <dbl>  <dbl> <dbl> <dbl>
##  1 Webra Speedy    0.135         1       2          1.8  13.5   12.5  0.45 22000
##  2 Motori Cipolla  0.15          1       2          2.5  15     14    1    26000
##  3 Webra Speed 20  0.25          1       2          3.4  16.5   16    0.78 22000
##  4 Webra 40        0.27          1       2          6.5  21     19    0.96 15500
##  5 Webra 61 Black… 0.43          1       2         10    24     22    1.55 14000
##  6 Webra 6WR       0.49          1       2         10    24     22    2.76 19000
##  7 Enya 60-4C      0.61          1       4         10    24     22    0.84 11800
##  8 Webra 91RC      0.67          1       2         14.3  27     25    2.85 13000
##  9 Technopower ra… 0.913         7       4         20    15.9   14    0.82  8700
## 10 Webra T4        0.93          1       4         14.7  27     25    1.43  9300
gf_point(stroke ~ bore, data = datamesin)

stroke <- fitModel(stroke ~ A*bore^b, data = Engines)
gf_point(stroke ~ bore, data = Engines) %>%
  slice_plot(stroke(bore) ~ bore, color="blue")