From 91435e0f6a04cd3cbc0a3276e0a15e11764904ca Mon Sep 17 00:00:00 2001
From: Jari Oksanen <jari.oksanen@oulu.fi>
Date: Sun, 2 Jul 2017 22:12:07 +0300
Subject: [PATCH] tweak error message

---
 src/getF.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/getF.c b/src/getF.c
index 1e0ff96f..d357b71c 100644
--- a/src/getF.c
+++ b/src/getF.c
@@ -159,8 +159,8 @@ SEXP do_getF(SEXP perms, SEXP E, SEXP QR, SEXP QZ, SEXP effects,
     /* check that permutations matrix has correct number of
      * observations */
     if (ncols(perms) != nr)
-	error("permutations matrix has %d columns, should have %d",
-	      ncols(perms), nr);
+	error("\'permutations\' matrix should have %d columns, but it has %d",
+	      nr, ncols(perms));
     double ev1, ev0, ev;
     SEXP ans = PROTECT(allocMatrix(REALSXP, nperm, nterms + 1));
     double *rans = REAL(ans);