diff --git a/R/CST_RainFARM.R b/R/CST_RainFARM.R
index d01d9a1bc9584723737f3412b27125c8e3573a70..1335cbc80c63bcc3591327329e8c11ec89775023 100644
--- a/R/CST_RainFARM.R
+++ b/R/CST_RainFARM.R
@@ -355,9 +355,8 @@ RainFARM <- function(data, lon, lat, nf, weights = 1., nens = 1, slope = 0,
                      names(cdim0)[-(1:ienspos)]),
                    grep, names(dim(result)))
   ndim <- names(dim(result))
-  result <- aperm(result, iorder)
-  # R < 3.2.3 compatibility fix
-  names(dim(result)) <- ndim[iorder]
+  pos <- match(ndim, names(iorder))
+  result <- aperm(result, pos)
 
   if (drop_realization_dim) {
     cdim <- dim(result)