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

Integral

Integral tentu

contoh :

integrand <- function(x) {
  keluaran = 2/((x+4)*sqrt(x))
  integrate(integrand, lower = 0, upper = Inf)
  return(cat("hasil integral tentu:", keluaran))
}

Integral tak tentu

integrand <- function(x) {
  keluaran = antiD(9*x^2+4 ~ x)
  return(cat("hasil integral tak tentu:", keluaran)) }

Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola

lingkaran<-function(x)
{luas=pi*(r^2)
keliling=2*pi*r
volume=(4/3)*pi*(r^3)
return(cat(c("Luas Lingkaran: ",luas,"\n",
             "Keliling Lingkaran: ",keliling,"\n",
             "Volume Bola:",volume)))
}

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

Data frekuensi

IPK = c(3.7,2.6,4,3.5,3,3.1)
Frek = c(3,5,1,7,4,2)
Frekuensi = round(Frek, digit=0)

N = data.frame(IPK,
                Frekuensi)

N
IPK Frekuensi
3.7 3
2.6 5
4.0 1
3.5 7
3.0 4
3.1 2

fungsi Nilai Maksimum, Minimum, Rata-rata, Median, Mode, Variansi, Standard Deviasi :

ekstrak.data = function (x,frek)                 # nama fungsi dan argumen
{
  min = min(x)
  max = max(x)
  rata= round(sum(x*frek)/sum(frek), digits=2)
  median = median(x)
  mode <- unique(IPK)
  mode[which.max(tabulate(match(IPK, mode)))]
  variansi = var(IPK)
  standev = sd(IPK)

  return(cat(c("minimum =",     min,
               "maksimum =",    max,
               "rata-rata =",   rata,
               "mode=",         mode,
               "variansi=",     variansi,
               "standev=",      standev
               )))
}