Post Test Komstat

# 1
#p(X=4)
eks<-function(x,lamda){lamda*exp((-1)*lamda*x)}
eks(4,0.05)

## [1] 0.04093654

cdfexp <- function(x,lamda = 0.05){
  pdf<- function(t){
    lamda * exp (-lamda*t)
  }
  hasil<-integrate (pdf, lower= 0, upper=x)
  return(hasil$value)
}
cdfexp(4,0.05)

## [1] 0.1812692

uniform <- function(x, a=0, b=1) {
  1/(b-a)
}

# P(X = 6), durasi tepat 6 menit
uniform(6, a=2, b=10)

## [1] 0.125

dunif(6, min=2, max=10)

## [1] 0.125

# Untuk P(X=4)
norm <- function(x, miu, sigma) {
  1/(sigma*sqrt(2*pi))*exp(-1/2*((x-miu)/sigma)^2)
}

norm(4, 5, 1)

## [1] 0.2419707

dnorm(4, mean=5, sd=1)

## [1] 0.2419707

```