From 0e57bfcf262a2b2a6a4c8148353cdaed7dc91c9c Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 7 Dec 2016 21:22:15 +0100 Subject: Use latex in plots when using tikzDevice --- R/plot.mkinfit.R | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'R/plot.mkinfit.R') diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R index 3df6c81c..b42ce097 100644 --- a/R/plot.mkinfit.R +++ b/R/plot.mkinfit.R @@ -172,8 +172,15 @@ plot.mkinfit <- function(x, fit = x, } } - chi2 <- paste0(signif(100 * mkinerrmin(fit)[errmin_var, "err.min"], errmin_digits), "%") - mtext(bquote(chi^2 ~ "error level" == .(chi2)), cex = 0.7, line = 0.4) + chi2 <- signif(100 * mkinerrmin(fit)[errmin_var, "err.min"], errmin_digits) + # Use LateX if the current plotting device is tikz + if (names(dev.cur()) == "tikz output") { + chi2_text <- paste0("$\\chi^2$ error level = ", chi2, "\\%") + } else { + chi2_perc <- paste0(chi2, "%") + chi2_text <- bquote(chi^2 ~ "error level" == .(chi2_perc)) + } + mtext(chi2_text, cex = 0.7, line = 0.4) } # Show residuals if requested -- cgit v1.2.3