latihan AKTUARIA 2.1.1 - 2.1.3

contoh.2.1.1 <-function(expr, age ,t ){
  sxt<- eval ({x = age+t; expr})
  sx <- eval({x=age; expr})
  output <- (sx-sxt)/sx
  output
}

expr <- expression(1-(x/100))
contoh.2.1.1 (expr, ag=30, t=10)

## [1] 0.1428571

contoh.2.1.2 <-function(expr, age ,t ){
  sxt<- eval ({x = age+t; expr})
  sx <- eval({x=age; expr})
  output <- (sx-sxt)/sx
  output
}

expr <- expression((1-(x/100)) ^0.5)
contoh.2.1.2(expr, age=36, t=15) #15q36

## [1] 0.125

1-contoh.2.1.2(expr, age=19 , t=17) #17p19

## [1] 0.8888889

contoh.2.1.3 <-function(expr, age ,t ){
  sxt<- eval ({x = age+t; expr})
  sx <- eval({x=age; expr})
  output <- (sx-sxt)/sx
  output
}

expr <- expression (exp(-x/12))
tpx <- 1-contoh.2.1.3(expr, age=13, t=7)
tpx 

## [1] 0.5580351

tqx <- contoh.2.1.3(expr, age=20, t=1)
tqx

## [1] 0.07995559

tpx*tqx

## [1] 0.04461803