Calculate Life-Time QALYs
total_QALYs(person_health_years) # S3 method for default total_QALYs(person_health_years) # S3 method for person_health_years total_QALYs(person_health_years)
| person_health_years | Object of class |
|---|
QALYs object
personHealthYears <- person_health_years( start_year = 2016, end_year = 2020, delay = 0, age = NA, time_horizon = NA, utility = 0.9, discount_rate = 0.035, utility_method = "add") total_QALYs(personHealthYears)#> [1] 0.9000000 0.8695652 0.8401596 0.8117484 NA NA NA #> [8] NA NA NA NA NA NA NA #> [15] NA NA NA NA NA NA NA #> [22] NA NA NA NA NA NA NA #> [29] NA NA NA NA NA NA NA #> [36] NA NA NA NA NA NA NA #> [43] NA NA NA NA NA NA NA #> [50] NA NA NA NA NA NA NA #> [57] NA NA NA NA NA NA NA #> [64] NA NA NA NA NA NA NA #> [71] NA NA NA NA NA NA NA #> [78] NA NA NA NA NA NA NA #> [85] NA NA NA NA NA NA NA #> [92] NA NA NA NA NA NA NA #> [99] NA NA #> attr(,"class") #> [1] "HRQoL" "numeric" #> attr(,"person_health_years") #> $start_year #> [1] 2016 #> #> $end_year #> [1] 2020 #> #> $delay #> [1] 0 #> #> $age #> [1] NA #> #> $time_horizon #> [1] 4 #> #> $utility #> [1] 0.9 0.9 0.9 0.9 #> #> $QoL #> [1] 1 1 1 1 #> #> $discount_rate #> [1] 0.035 #> #> $death #> [1] NA #> #> $utility_method #> [1] "add" #> #> $period #> [1] 1 1 1 1 #> #> attr(,"class") #> [1] "person_health_years" "list"## 2.913622 if (FALSE) { total_QALYs(1) ## "Error: Not an person_health_years class input object." }