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