diff --git a/R/rma.R b/R/rma.R
index c22e6f9..d4cea76 100644
--- a/R/rma.R
+++ b/R/rma.R
@@ -38,4 +38,6 @@ rma <- function(yi,vi,measure,d,effect="Effect") {
   }else{
     rma_model <- metafor::rma.uni(yi=dat[,yi],vi=dat[,vi],measure=measure,slab=paste(dat$r_author, dat$r_year))
   }
+  gc() # Force R to release memory it is no longer using
+  return(rma_model)
 }