Another tweak to plotQuantileCIsfromDat to handle singular or plural …

…quantiles correctly in the annotation to the graph, i.e. to avoid "quantiles = .5"!

R/plotQuantileCIsfromDat.R

@@ -359,7 +359,7 @@ plotQuantileCIsfromDat <- function(vecDat = NA, vecQuantiles = NA, method = c("N
                              "n(missing) = ", nMiss, "\n",
                              "n(usable) = ", nOK, "\n",
                              "ci = ", ci, " i.e. ", paste0(100 * ci), "%\n",
-                             "quantiles = ", vecQuantiles)
+                             "quantile = ", vecQuantiles)
     } else {
       annotateText <- paste0("n(total) = ", nAll, "\n",
                              "n(missing) = ", nMiss, "\n",