# Cost-Effectiveness inferences using Linear Models and eff.ridge...
if (FALSE) {
library(ICEinfer)
data(sepsis)
ndr <- ICEpref(sepsis$icu, sepsis$qalypres, sepsis$totcost, lambda=50000, beta=0.1)
sndr <- data.frame(cbind(ndr$pref, sepsis)) # ndr: non-linear diminishing returns...
form4 <- ndr.pref ~ icu + age + orgfails + apache
usndra <- eff.aug(eff.ridge(form4, sndr)) # compare ndr of 2 Intensive Care Units...
plot(efobj <- eff.biv(usndra, 2, 4))
efobj # implicit print...
# plot(efobj, type = "tr")
}
Run the code above in your browser using DataLab