changed output of the function from a df with the original data and e…

…xtra columns with the estimated oc and the model used to estimate each sample, to a list with tho elements. The data frame that was the former output and a aditional object with the parameters of the models.

#38

R/estimate_oc.R

@@ -100,7 +100,10 @@ estimate_oc <- function(df = NULL,
   df_out <- subset(df_pred,
                     select = c(-ecosystem_r, -species_r, -site_r, -om_r, -oc_r))
 
-  invisible(df_out)
+  out<-list (df_out, all_models)
+  names(out)<-c("data","models")
+
+  invisible(out)
 
 }