Interpolate Sa(p) at arbitrary period using log-log interpolation

Interpolate Sa(p) at arbitrary period using log-log interpolation

Usage

interpolateSaTable(uhs, Tn)

Arguments

uhs

data.table with columns Tn, p, Sa.

Tn

numeric scalar — target period for interpolation.

Value

data.table with interpolated Tn, p, Sa

Examples

uhs <- data.table::data.table(
  Tn = c(0.2, 0.5, 1.0, 0.2, 0.5, 1.0),
  p  = c("0.16", "0.16", "0.16", "0.84", "0.84", "0.84"),
  Sa = c(0.8, 0.6, 0.3, 1.2, 0.9, 0.5)
)
interpolateSaTable(uhs, Tn = 0.3)
#>       Tn      p        Sa
#>    <num> <char>     <num>
#> 1:   0.3   0.16 0.7043747
#> 2:   0.3   0.84 1.0565620