Tugas 5 Revisi

Fungsi

Email             : naftali.gunawan@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/naftalibrigitta/
Jurusan          : Statistika Bisnis
Address         : Perumahan Ciater Permai
                         Jl. Anggrek III, Blok A5 No. 10, RT 001, RW 004, Serpong, Tangerang Selatan, Banten 15310.

---

1 Intergral

1.1 Tentu dan Tak Tentu

library(mosaicCalc)

Fungsi=makeFun(2*x^3~x)

IntegralTentuTakTentu <- function(x)
{
 Integral= antiD(Fungsi(x)~x)
 IntegralTentu=Integral(0)-Integral(2)
 IntegralTakTentu=Integral(0:3)
  return (cat(c("Integral Tentu :", IntegralTentu, "\n", 
                "Integral Tak Tentu :", IntegralTakTentu)))
}
IntegralTentuTakTentu(x)

## Integral Tentu : -8 
##  Integral Tak Tentu : 0 0.5 8 40.5

2 Lingkaran dan Bola

2.1 Luas, Keliling, dan Volume

lkellvol <- function(π,r)                                           # nama fungsi dan argumen
{                                                                   # pembukaan fungsi
luas_lingkaran = π*r^2                                              # menghitung luas lingkaran
keliling_lingkaran = 2*π*r                                          # menghitung keliling lingkaran
volume_bola = 4/3*π*r^3                                             # menghitung volume bola
return (cat(c("Luas Lingkaran:", luas_lingkaran, sep = "\n",
              "Keliling Lingkaran:", keliling_lingkaran,sep="\n",
              "Volume Bola:", volume_bola)))
}                                                                   # penutupan fungsi
lkellvol(22/7,21)                                                   # menggunakan fungsi

## Luas Lingkaran: 1386 
##  Keliling Lingkaran: 132 
##  Volume Bola: 38808

3 Nilai pada Data Berfrekuensi

3.1 Nilai Max, Min, Rerat, Mean, Median, Mode, Variansi dan Standard Deviasi

Skor = c(5,10,15,20,25)
Frekuensi = c(3,1,5,8,3)

Guns <- data.frame(Skor, Frekuensi)

Guns

##   Skor Frekuensi
## 1    5         3
## 2   10         1
## 3   15         5
## 4   20         8
## 5   25         3

nappuy <- function(x,frek)
  
{ 
  tbm=19.5
  d1 = 3
  d2 = 5
  interval = 5
  n = 20

  Max = max(x)
  Min = min(x)
  Rerata = round(sum(x*frek)/sum(frek))
  Median = round(sum(frek)+1)/2
  Mode = tbm+interval*(d1/(d1+d2))
  
  o = x-Rerata
  p = sum((o^2)*frek)
  
  Variansi = p / (sum(frek)-1)
  
  Standev = sqrt(Variansi)
  
  return (cat(c("Nilai Maksimalnya adalah", Max, "\n", 
                "Nilai Minimalnya adalah", Min, "\n", 
                "Nilai Reratanya adalah", Rerata, "\n", 
                "Nilai Mediannya adalah", Median, "\n", 
                "Nilai Modenya adalah", Mode, "\n", 
                "Nilai Variansinya adalah", Variansi, "\n", 
                "Nilai Standard Deviasinya adalah", Standev, "\n")))
}

nappuy(Guns$Skor,Guns$Frekuensi)

## Nilai Maksimalnya adalah 25 
##  Nilai Minimalnya adalah 5 
##  Nilai Reratanya adalah 17 
##  Nilai Mediannya adalah 10.5 
##  Nilai Modenya adalah 21.375 
##  Nilai Variansinya adalah 40.2631578947368 
##  Nilai Standard Deviasinya adalah 6.34532567286635