Zero failure rates

[LittleBeannie]

The following code gives NaN hr:

library(gsDesign2)

pw_info(
  enroll_rate = define_enroll_rate(duration = c(2, 10), rate = c(5, 20)),
  fail_rate = define_fail_rate(duration = c(6, 24, Inf), fail_rate = c(0.001, 0.05, 0), dropout_rate = 0.0001),
  total_duration = 40,
  ratio = 1
)

#>   time stratum  t  hr    event    info   info0
#> 1   40     All  0   1 146.2816 36.5704 36.5704
#> 2   40     All 30 NaN   0.0000  0.0000  0.0000

The solution is to get rid of the time duration with 0 events.