Email             :
RPubs            : https://rpubs.com/jeremyheriyandi23/

Jurusan          : Statistika
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)

Fungsi= makeFun(x^2~x)

IntegTentudanTakTentu <- function(x)
{
  Integral= antiD(Fungsi(x)~x)
  Integral_Tentu= Integral(1)-Integral(3)
  Integral_Tak_Tentu= Integral(1:5)
  return (cat(c("Integral Tentu :", Integral_Tentu, "\n",
                "Integral Tak Tentu :", Integral_Tak_Tentu)))
}
IntegTentudanTakTentu(x)
## Integral Tentu : -8.66666666666667 
##  Integral Tak Tentu : 0.333333333333333 2.66666666666667 9 21.3333333333333 41.6666666666667

2 Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola.

Luas_L <- function(pi,r)                
{                                              
  Luas = pi*r^2      
  keliling = 2*pi*r 
  volume = 4/3*pi*r^3 
  return(cat("luas.lingkaran:", Luas,
             "keliling lingkaran:", keliling,
             "volume bola:", volume)) 
}                                               

Luas_L(22/7,9)
## luas.lingkaran: 254.5714 keliling lingkaran: 56.57143 volume bola: 3054.857

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

ukuran sepatu frekuensi
45 4
40 12
35 14
30 11
25 10
20 9
15 25

##Menghitung jumlah Maksimum

ukuran_sepatu <- seq(15,45,5)
frekuensi <- c(4,12,14,11,10,9,25)

Sepatu <- data.frame(ukuran_sepatu,frekuensi)

US <- function(x,frek)
{
  min = min(x)                                          
  max = max(x)                                           
  rata.rata = round(sum(x*frek)/sum(frek))    
  median = round(sum(frek)+1) / 2
             
 
 tbm = 34.5                                             
 d1 = -1                                               
 d2 = 2                                              
 c = 5                              
 mode = round(tbm + c*(d1/(d1+d2)) , digits = 1)
 a = x-rata.rata
 b = sum((a^2)*frek)
 var = b/(sum(frek)-1)
 sd = (sqrt(var))
 return(cat(c("Min:", min,"\n",
             "Maks:", max,"\n",
             "Mean:", rata.rata,"\n",
             "Med:", median,"\n",
             "Mod:", mode,"\n",
             "var:",var,"\n",
             "Sd:",sd))) 
 
          
             
}

US(Sepatu$ukuran_sepatu,Sepatu$frekuensi) 
## Min: 15 
##  Maks: 45 
##  Mean: 33 
##  Med: 43 
##  Mod: 29.5 
##  var: 100 
##  Sd: 10