icertool: Calculate the ICER and Plot the Efficiency Frontier
In icertool: Calculate and Plot ICER

Description Usage Value Examples

View source: R/app.R

The app will calculate the ICER (incremental cost-effectiveness ratio) (Rawlins, 2012) doi: 10.1016/B978-0-7020-4084-9.00044-6 from the mean costs and quality-adjusted life years (QALY) (Torrance and Feeny, 2009) doi: 10.1017/S0266462300008461 for a set of treatment options, and draw the efficiency frontier in the costs-effectiveness plane. The app automatically identifies and excludes dominated and extended-dominated options from the ICER calculation.

1	icertool()

The function 'icertool()' does not return a value. 'icertool()' returns a plot that can be copied from the graphical interface.

In the results tab, to copy an image of the graph to a word-processor document, right-click with your mouse on the graph and select 'Copy image', then go to your word-processor document and select 'Paste Special' and 'Bitmap image'

if (interactive()){

data.0 <- as.data.frame(read_excel("icer.xlsx"))

cq<-myicer(data.0)

my_ce <- ce_plot(data.0,cq)

my_ce + theme(text = element_text(size = 12)) + geom_text_repel()

cq


}