Tugas 5

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

library(mosaicCalc)

## Loading required package: mosaicCore

## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2

## 
## Attaching package: 'mosaicCalc'

## The following object is masked from 'package:stats':
## 
##     D

{
F = antiD(x^3+5*x ~ x)
}
F(x = 5) - F(x = 3)

## [1] 176

1.2 Tak Tentu

library(mosaicCalc)
{
F = antiD(x^4 ~ x)
}
F

## function (x, C = 0) 
## 1/5 * x^5 + C

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,7)                                                    # menggunakan fungsi

## Luas Lingkaran: 154 
##  Keliling Lingkaran: 44 
##  Volume Bola: 1437.33333333333

3 Nilai pada Data Berfrekuensi

Lompatan (dalam cm)	Frekuensi
150	20
160	10
170	15
180	14
190	5
200	1

3.1 Maksimum

Lompatan <- seq (150, 200, 30)              # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)              # masukan/argumen 2  

max_frek <- function(x,frek)                # nama fungsi dan argumen
{                                           # pembukaan fungsi
keluaran=max(frek)                          # menghitung maksimal frekuensinya
return(cat("Maksimum nya:", keluaran))      # print hasil dengan komentar
}                                           # penutupan fungsi
max_frek(Lompatan, Frek)                    # menggunakan fungsi

## Maksimum nya: 20

3.2 Minimum

Lompatan <- seq (150, 200, 30)              # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)              # masukan/argumen 2  

min_frek <- function(x,frek)                # nama fungsi dan argumen
{                                           # pembukaan fungsi
keluaran=min(frek)                          # menghitung minimum frekuensinya
return(cat("Minimum nya:", keluaran))       # print hasil dengan komentar
}                                           # penutupan fungsi
min_frek(Lompatan, Frek)                    # menggunakan fungsi

## Minimum nya: 1

3.3 Rata-rata

Lompatan <- seq (150, 200, 30)              # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)              # masukan/argumen 2  

rata_frek <- function(x,frek)               # nama fungsi dan argumen
{                                           # pembukaan fungsi
keluaran=sum(x*frek)/length(frek)           # menghitung rata-rata frekuensinya
return(cat("Rata-rata nya:", keluaran))     # print hasil dengan komentar
}                                           # penutupan fungsi
rata_frek(Lompatan, Frek)                   # menggunakan fungsi

## Rata-rata nya: 1750

3.4 Median

Lompatan <- seq (150, 200, 30)              # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)              # masukan/argumen 2  

median_frek <- function(x,frek)             # nama fungsi dan argumen
{                                           # pembukaan fungsi
keluaran=median(frek)                       # menghitung median frekuensinya
return(cat("Median nya:", keluaran))        # print hasil dengan komentar
}                                           # penutupan fungsi
median_frek(Lompatan, Frek)                 # menggunakan fungsi

## Median nya: 12

3.5 Mode

Lompatan <- seq (150, 200, 30)              # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)              # masukan/argumen 2  

mode_frek <- function(x,frek)               # nama fungsi dan argumen
{                                           # pembukaan fungsi
keluaran=mode(frek)                         # menghitung mode/modus frekuensinya
return(cat("Mode/Modus nya:", keluaran))    # print hasil dengan komentar
}                                           # penutupan fungsi
mode_frek(Lompatan, Frek)                   # menggunakan fungsi

## Mode/Modus nya: numeric

3.6 Variansi

Lompatan <- seq (150, 200, 30)              # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)              # masukan/argumen 2  

var_frek <- function(x,frek)                # nama fungsi dan argumen
{                                           # pembukaan fungsi
keluaran=var(frek)                          # menghitung variansi frekuensinya
return(cat("Variansi nya:", keluaran))      # print hasil dengan komentar
}                                           # penutupan fungsi
var_frek(Lompatan, Frek)                    # menggunakan fungsi

## Variansi nya: 48.56667

3.7 Standard Deviasi

Lompatan <- seq (150, 200, 30)                  # masukan/argumen 1
Frek <-c(20, 10, 15, 14, 5, 1)                  # masukan/argumen 2  

sqrt_frek <- function(x,frek)                   # nama fungsi dan argumen
{                                               # pembukaan fungsi
keluaran=sqrt(frek)                             # menghitung standard deviansi frekuensinya
return(cat("Standard Deviasi nya:", keluaran))  # print hasil dengan komentar
}                                               # penutupan fungsi
sqrt_frek(Lompatan, Frek)                       # menggunakan fungsi

## Standard Deviasi nya: 4.472136 3.162278 3.872983 3.741657 2.236068 1