Email             :
RPubs            : https://rpubs.com/dhelaasafiani
Jurusan          : Statistika Bisnis
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

1 Intergral Tentu dan Tak Tentu

library(mosaicCalc)

f = makeFun(x^2 + 5*x ~x)

integrandd <- function(x)
{
  Integral = antiD(f(x)~x)
  Tentu = Integral(0)-Integral(3)
  Tak.Tentu = Integral(0:3)
  return (cat(c("Integral Tentu :", Tentu, "\n", 
                "Integral Tak Tentu :", Tak.Tentu)))
}
integrandd(x)
## Integral Tentu : -31.5 
##  Integral Tak Tentu : 0 2.83333333333333 12.6666666666667 31.5

2 Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola

\(Luas.Lingkaran = πr^2\)

\(Keliling.Lingkaran = 2πr\)

\(Volume.Bola = 4/3πr^3\)

Luas_Lingkaran <- function(pi,r)                # Nama fungsi dan argumen
{                                               # Pembukaan fungsi\
  Luas = round(pi*r^2)                          # Menghitung luas lingkaran
  Keliling = round(2*pi*r)                      # Menghitung keliling lingkaran
  Volume = round(4/3*pi*r^3 , digits =2)        # Menghitung volume lingkaran         
  return(cat("Luas lingkaran:", Luas,"\n",
             "Keliling lingkaran:", Keliling,"\n",
             "Volume bola:", Volume))
}                                               # Penutupan fungsi


Luas_Lingkaran(22/7,7)                          # Menggunakan fungsi
## Luas lingkaran: 154 
##  Keliling lingkaran: 44 
##  Volume bola: 1437.33

3 Nilai Maksimum, Minimum, Rata-rata, Median, Mode, Variansi, Standard Deviasi pada data berfrekuensi.

Nilai.UAS Frequency
65 4
70 2
75 8
80 11
85 3
90 7 
Nilai.UAS = seq(65, 90, 5)                      # Membuat list data dengan jarak interval 5
Frequency = c(4,2,8,11,3,7)                     # Membuat list frequency

score <- data.frame(Nilai.UAS,Frequency)        # Mengubah list data ke dalam bentuk Data Frame

score
##   Nilai.UAS Frequency
## 1        65         4
## 2        70         2
## 3        75         8
## 4        80        11
## 5        85         3
## 6        90         7
Nilai <- function(x,frekuensi)
  
{
  min = min(x)                                           # Mencari nilai min
  max = max(x)                                           # Mencari nilai mac
  rata.rata = round(sum(x*frekuensi)/sum(frekuensi))     # Mencari nilai mean atau rata-rata
  median = round(sum(frekuensi)+1) / 2                   # Mencari nilai median atau nilai tengah
  
  tbm = 79.5                                             # Batas bawah kelas (80-0,5)
  d1 = 3                                                 # selisih kelas frek modus dengan frek sebelumnya
  d2 = 8                                                 # selisih kelas frek modus dengan frek sesudahnya
  c = 5                                                  # Interval
  mode = round(tbm + c*(d1/(d1+d2)) , digits = 1)        # Mencari modus dengan rumus matematika
  
  h = x-rata.rata
  i = sum((h^2)*frekuensi)
  varians = i/(sum(frekuensi)-1)                         # Mencari nilai varians
 
  standard.deviasi = (sqrt(varians))                     # Mencari standard deviasi
  
  
  return(cat(c("Minimal:", min,"\n",
               "Maksimal:", max,"\n",
               "Rata-rata:", rata.rata,"\n",
               "Median terdapat pada data ke:", median,"\n",
               "Modus:", mode,"\n",
               "Var:", varians,"\n",
               "Sd:", standard.deviasi)))
}

Nilai(score$Nilai.UAS,score$Frequency)
## Minimal: 65 
##  Maksimal: 90 
##  Rata-rata: 79 
##  Median terdapat pada data ke: 18 
##  Modus: 80.9 
##  Var: 60 
##  Sd: 7.74596669241483