=====================================================
Nama Mahasiswa : Yoza Setya Febriyanti
NIM : 220605110062
Kelas : C
Mata Kuliah : Kalkulus
Dosen Pengampuh : Prof.Dr.Suhartono,M.Kom
Jurusan : Teknik Informatika
Universitas : UIN Maulana Malik Ibrahim Malang
=====================================================
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
Cobalah perintah ini:
x <- 10
slice_plot(A * x ^ 2 ~ A, domain(A = range(-2, 3)))
Jelaskan mengapa grafik tidak terlihat seperti parabola, meskipun itu adalah grafik ax2.
JAWAB:
Perhatikan bahwa input ke fungsi adalah , bukan . Nilai telah diatur ke 10 — grafik sedang dibuat di atas rentang dari ‘A x x A’ −2 untuk 3.
Terjemahkan masing-masing ekspresi ini dalam notasi matematika tradisional ke dalam plot. Serahkan perintah yang Anda berikan untuk membuat plot (bukan plot itu sendiri). a. 4x−7 di jendela x dari 0 hingga 10.
JAWAB:
slice_plot( 4 * x - 7 ~ x, domain(x = range(0, 10) ))
JAWAB:
slice_plot( cos(5 * x) ~ x, domain(x = range(-1, 1)))
slice_plot( cos(2 * t) ~ t, domain(t = range(0,5) ))
slice_plot( sqrt(t) * cos(5 * t) ~ t, domain(t = range(0, 5) ))
Mereproduksi masing-masing plot ini. Serahkan perintah yang Anda gunakan untuk membuat plot yang identik:
a. 
JAWAB:
slice_plot(2*x - 3 ~ x, domain(x = range(0, 5)))
b. 
JAWAB :
slice_plot(t^2 ~ t, domain(t = range(-2, 2)))
Apa yang terjadi ketika Anda menggunakan parameter simbolik (misalnya, di , tetapi cobalah membuat plot tanpa memilih nilai numerik tertentu untuk parameter? mm*x + b ~ x
JAWAB:
Anda mendapatkan pesan kesalahan yang mengatakan bahwa “objek tidak ditemukan”.
Apa yang terjadi ketika Anda tidak menentukan rentang untuk input, tetapi hanya satu angka, seperti pada detik dari dua perintah ini:
slice_plot(3 * x ~ x, domain(x= range(1,4)))
slice_plot(3 * x ~ x, domain(x = 14))
Berikan deskripsi tentang apa yang terjadi dan berspekulasi tentang alasannya.
JAWAB:
Jika tidak ada domain yang ditentukan atau jika domain hanya memiliki satu angka daripada rentang, pesan kesalahan akan dihasilkan.slice_plot()
Buat masing-masing plot ini:
Prof. Stan Wagon (lihat http://stanwagon.com) mengilustrasikan pemasangan kurva menggunakan pengukuran suhu (dalam derajat C) secangkir kopi versus waktu (dalam menit):
s = read.csv(
"http://www.mosaic-web.org/go/datasets/stan-data.csv")
gf_point(temp ~ time, data=s)
Berikut catatan tingkat pasang surut air pasang di Hawaii selama sekitar 100 jam:
h = read.csv(
"http://www.mosaic-web.org/go/datasets/hawaii.csv")
gf_point(water ~ time, data=h)
Buat perintah R untuk menduplikasi masing-masing plot ini. Serahkan perintah Anda (bukan plot):
File data memiliki catatan utilitas untuk sebuah rumah di St. Paul, Minnesota, AS. Buat plot ini, termasuk label:“utilities.csv”
a. 
JAWAB :
Utilities <- read.csv(
"http://www.mosaic-web.org/go/datasets/utilities.csv")
gf_point(
temp ~ month, data=Utilities) %>%
gf_labs(x = "Month (Jan=1, Dec=12)",
y = "Temperature (F)",
main = "Ave. Monthly Temp.")
b.Dari file data, buat plot tagihan bulanan rumah tangga ini untuk gas alam versus suhu rata-rata. Garis memiliki kemiringan “utilities.csv”−5 USD/derajat dan mencegat 300 USD.
b. 
JAWAB :
gf_point(
gasbill ~ temp, data=Utilities) %>%
gf_labs(xlab = "Temperature (F)",
ylab = "Expenditures ($US)",
main = "Natural Gas Use") %>%
slice_plot( 300 - 5*temp ~ temp, color="blue")