diff --git a/R/compute_eib_cri.R b/R/compute_eib_cri.R
index 413bdb97..ddf84dc5 100644
--- a/R/compute_eib_cri.R
+++ b/R/compute_eib_cri.R
@@ -15,7 +15,7 @@ compute_eib_cri <- function(he,
                             alpha_cri = 0.05,
                             cri.quantile = TRUE) {
   
-  if (he$n_comparison > 1) {
+  if (he$n_comparisons > 1) {
     margin <- c(1, 3)
   } else {
     margin <- 1
@@ -39,7 +39,7 @@ compute_eib_cri <- function(he,
       c(apply(he$ib, margin, FUN = compute_cri, low = FALSE)),
     comp =
       as.factor(
-        rep(1:he$n_comparison, each = length(he$k))),
+        rep(1:he$n_comparisons, each = length(he$k))),
     k = he$k)
   
   return(cri)
diff --git a/R/eib_plot_graph.R b/R/eib_plot_graph.R
index 20ae07e8..2e97328e 100644
--- a/R/eib_plot_graph.R
+++ b/R/eib_plot_graph.R
@@ -61,7 +61,7 @@ eib_plot_ggplot <- function(he,
       k = c(he$k),
       eib = c(he$eib), 
       comparison =
-        as.factor(rep(1:he$n_comparison,
+        as.factor(rep(1:he$n_comparisons,
                       each = length(he$k))))
   
   ggplot(data_psa,
diff --git a/R/ib.plot.R b/R/ib.plot.R
index 3d80c64c..44028549 100644
--- a/R/ib.plot.R
+++ b/R/ib.plot.R
@@ -54,7 +54,7 @@ ib.plot.bcea <- function(he,
   base.graphics <- all(pmatch(graph, c("base", "ggplot2")) != 2)
   
   if (!is.null(comparison))
-    stopifnot(comparison <= he$n_comparison)
+    stopifnot(comparison <= he$n_comparisons)
   
   if (base.graphics) {
     ib_plot_base(he,
diff --git a/R/prep_ceplane_params.R b/R/prep_ceplane_params.R
index ebf8c066..6189f5d9 100644
--- a/R/prep_ceplane_params.R
+++ b/R/prep_ceplane_params.R
@@ -42,8 +42,8 @@ prep_ceplane_params <- function(he, wtp_params, ...) {
     list(xlab = "Incremental effectiveness",
          ylab = "Incremental cost",
          title = plot_title,
-         xlim = axes_lim$x,
-         ylim = axes_lim$y,
+         xlim = axes_lim$xlim,
+         ylim = axes_lim$ylim,
          point = list(
            color = grey.colors(n = he$n_comparisons,
                                end = 0.7,
diff --git a/inst/REFERENCES.bib.bak b/inst/REFERENCES.bib.bak
deleted file mode 100644
index 199187ec..00000000
--- a/inst/REFERENCES.bib.bak
+++ /dev/null
@@ -1,22 +0,0 @@
-@article{Baio2011,
-author = {Baio, Gianluca and Dawid, a Philip},
-doi = {10.1177/0962280211419832},
-file = {:C\:/Users/n8tha/AppData/Local/Mendeley Ltd./Mendeley Desktop/Downloaded/Baio, Dawid - 2011 - Probabilistic sensitivity analysis in health economics.pdf:pdf},
-issn = {1477-0334},
-journal = {Stat. Methods Med. Res.},
-keywords = {bayesian decision theory,health economic evaluation,sensitivity},
-number = {292},
-pages = {1--20},
-pmid = {21930515},
-title = {{Probabilistic sensitivity analysis in health economics.}},
-url = {http://www.ncbi.nlm.nih.gov/pubmed/21930515},
-year = {2011}
-}
-
-@book{Baio2013,
-author = {Baio, Gianluca},
-title = {{Bayesian Methods in Health Economics}},
-publisher = {CRC},
-year = 2000
-}
-