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
## The legacy packages maptools, rgdal, and rgeos, underpinning the sp package,
## which was just loaded, will retire in October 2023.
## Please refer to R-spatial evolution reports for details, especially
## https://r-spatial.org/r/2023/05/15/evolution4.html.
## It may be desirable to make the sf package available;
## package maintainers should consider adding sf to Suggests:.
## The sp package is now running under evolution status 2
##      (status 2 uses the sf package in place of rgdal)
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D

Fungsi eksponensial yaitu f(x)= e^x.

Membuat eksponen dengan nilai 6

exp(6)
## [1] 403.4288

Kemudian kita balik, khusus pada bentuk output dari fungsi eksponen, kita masukan menjadi nilai input dari fungsi logritma.

log(403.4288)
## [1] 6

Diatas terlihat bahwa kita dapat mencari nilai eksponen menggunakan logaritma karena kebalikan dari eksponen adalah logaritma.

Fungsi

Buat suatu fungsi dengan menginput nilai f(6) ke dalamnya. Contoh fungsi f(x)= x^2 - 4x - 6 ini adalah suatu fungsi polinomial yang jika kita memberi nilai x0 tertentu pada fungsi tersebut maka kita bisa contohkan hasil dari f(x) adalah 3 maka kita bisa mencari nilai dari x0 dengan cara seperti berikut:

f <- makeFun(x^2 - 4*x - 6 ~ x)
f(6)
## [1] 6

Penjelasan dari operasi fungsi tersebut :

Diketahui x = 6;

f(x) = x^2 - 4*x - 6

f(6) = 6^2 - 4*x - 6

f(6) = 36 - 24 - 6

f(6) = 6

Zeros(f(x) - 6 ~ x, bounds(x=-6:6))
## # A tibble: 2 × 2
##       x    .output.
##   <dbl>       <dbl>
## 1 -2.00 -0.00000728
## 2  6     0
slice_plot(f(x) - 6 ~ x, bounds(x=-12:12)) %>%
  gf_hline(yintercept = ~ 3 , color="navy")