Algoritma dan Statistika Bisnis

Tugas 5

Email             : sausan.ramadhani@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/sausanramadhani/
Jurusan          : Statistika
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

Soal 1

Buatlah fungsi untuk menghitung integral tentu dan tak tentu

Jawaban Soal 1

library(mosaicCalc)
IntegralTentudanTakTentu <- function(x)
{
  Fungsi=makeFun(x^2+3*x~x)
  Integral= antiD(Fungsi(x)~x)
  Integral_Tentu=Integral(1)-Integral(5)
  Integral_Tak_Tentu=Integral(1:8)
  return (cat(c("Integral Tentu :", Integral_Tentu, "\n", 
                "Integral Tak Tentu :", Integral_Tak_Tentu)))
}
IntegralTentudanTakTentu(x)

## Integral Tentu : -77.3333333333334 
##  Integral Tak Tentu : 1.83333333333333 8.66666666666667 22.5 45.3333333333333 79.1666666666667 126 187.833333333333 266.666666666667

Soal 2

Buatlah fungsi untuk menghitung Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola

Jawaban Soal 2

LuKelVol <- function(phi,r)
{
  luas_lingkaran = phi*r*r
  keliling_lingkaran = 2*phi*r
  volume_bola = (4/3)*phi*r*r*r
  return(cat(c("luas lingkaran:",
               luas_lingkaran, sep = "\n",
               "keliling lingkaran:", keliling_lingkaran, sep = "\n",
               "volume bola:", volume_bola)))
}
LuKelVol(3,5)

## luas lingkaran: 75 
##  keliling lingkaran: 30 
##  volume bola: 500

Soal 3

Buatlah fungsi untuk menghitung Nilai Maksimum, Minimum, Rata-rata, Median, Mode, Variansi, Standard Deviasi pada data berfrekuensi

Jawaban Soal 3

berat badan	frekuensi
30	2
40	5
50	7
60	4
70	3
80	1
90	5

berat_badan<-seq(30,90,10)
frek<-c(2,5,7,4,3,1,5)

komet=data.frame(berat_badan,frek)

MaksMinRat<-function(x,frekuensi)
{
  n=27
  tbm=49.5
  d1=2
  d2=3
  interval=10
  nilai_maks=max(x)
  nilai_min=min(x)
  mean=sum(berat_badan)/n
  median=round(sum(berat_badan)+1) / 2
  mode=tbm+interval*(d1/(d1+d2))
  b=x-mean
  c=sum((b**2)*frekuensi)
  variansi=c/(sum(frekuensi)-1)
  standart_deviasi=sqrt(variansi)
  return(cat("nilai maksimum :", nilai_maks,"\n",
             "nilai minimum :", nilai_min,"\n",
             "rata-rata :", mean,"\n",
             "median :", median,"\n",
             "modus :", mode,"\n",
             "variansi :", variansi,"\n",
             "standart deviasi :", standart_deviasi,"\n"))
}
MaksMinRat(komet$berat_badan,komet$frek)

## nilai maksimum : 90 
##  nilai minimum : 30 
##  rata-rata : 15.55556 
##  median : 210.5 
##  modus : 53.5 
##  variansi : 2321.795 
##  standart deviasi : 48.18501