From 31a6669ddda7eb55b82eaafa99a9aa731b9cdf47 Mon Sep 17 00:00:00 2001 From: JTPetter <61797391+JTPetter@users.noreply.github.com> Date: Fri, 19 Jul 2024 14:19:11 +0200 Subject: [PATCH] Update R/msaGaugeLinearity.R Co-authored-by: Don van den Bergh --- R/msaGaugeLinearity.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/msaGaugeLinearity.R b/R/msaGaugeLinearity.R index 4eb4566a..270e42aa 100644 --- a/R/msaGaugeLinearity.R +++ b/R/msaGaugeLinearity.R @@ -154,7 +154,7 @@ msaGaugeLinearity <- function(jaspResults, dataset, options, ...) { linearity <- abs(coefficientSlope) * options[["manualProcessVariationValue"]] percentLin <- (linearity / options[["manualProcessVariationValue"]]) * 100 plusOrMin <- if (coefficientSlope > 0) "+" else "-" - regressionEquation <- gettextf("Bias = %.2f %s %.2f * Reference value", coefficientConstant, plusOrMin, abs(coefficientSlope)) + regressionEquation <- gettextf("Bias = %1$.2f %2$s %3$.2f * Reference value", coefficientConstant, plusOrMin, abs(coefficientSlope)) p1 <- ggplot2::ggplot(data = df2, mapping = ggplot2::aes(x = Ref, y = Bias)) + ggplot2::geom_hline(yintercept = 0, lty = 2, color = "grey") +