search erro intra 2

R/analysis/lmer.run.R

@@ -92,8 +92,8 @@ run.lmer <- function (model.file, trait,
                                         # return a list of DF
      cat("Ok data with Nobs", nrow(list.df.lmer[[1]]),
          "\n")
-    print(names(list.df.lmer))
-    print(dim(list.df.lmer))
+    print(names(list.df.lmer[[2]]))
+    print(dim(list.df.lmer[[2]]))
       #= Run model
         call.lmer.and.save(formula = model$lmer.formula.tree.id,
                            list.df.lmer[[1]], path.out = path.out,