diff --git a/NAMESPACE b/NAMESPACE
index d38fc94..594196e 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -3,6 +3,8 @@
 S3method(predict,Training)
 S3method(predict,bestSpecificLearner)
 S3method(predict,weightedMeanLearner)
+S3method(summary,Testing)
+S3method(summary,Training)
 export(Data)
 export(HashTable)
 export(Lrner)
@@ -27,6 +29,8 @@ export(createTesting)
 export(createTrainLayer)
 export(createTrainMetaLayer)
 export(createTraining)
+export(extractData)
+export(extractModel)
 export(fusemlr)
 export(upsetplot)
 export(varSelection)
diff --git a/R/Lrner.R b/R/Lrner.R
index 8b45a96..0d0dcbd 100644
--- a/R/Lrner.R
+++ b/R/Lrner.R
@@ -81,12 +81,6 @@ Lrner <- R6Class("Lrner",
                      cat(sprintf("      TrainLayer       : %s\n", private$train_layer$getId()))
                      cat(sprintf("      Package          : %s\n", private$package))
                      cat(sprintf("      Learn function   : %s\n", private$lrn_fct))
-                     cat("Predicting parameter\n")
-                     print(expand.grid(private$param_train))
-                     if (!length(private$param_pred)) {
-                       cat("Predicting parameter\n")
-                       print(expand.grid(private$param_pred))
-                     }
                    },
                    #' @description
                    #' Learner and prediction parameter interface. Use this function
diff --git a/R/TrainData.R b/R/TrainData.R
index 4d1a8d5..2b396b8 100644
--- a/R/TrainData.R
+++ b/R/TrainData.R
@@ -108,16 +108,16 @@ TrainData <- R6Class("TrainData",
                        #'
                        summary = function (...) {
                          if ("TrainMetaLayer" %in% class(private$train_layer)) {
-                           cat(sprintf("TrainData : %s\n", "meta data"))
+                           cat(sprintf("      TrainData : %s\n", "meta data"))
                          } else {
-                           cat(sprintf("TrainData : %s\n", private$id))
+                           cat(sprintf("      TrainData : %s\n", private$id))
                          }
-                         cat(sprintf("      Layer     : %s\n", private$train_layer$getId()))
-                         cat(sprintf("      Ind. id.  : %s\n", private$ind_col))
-                         cat(sprintf("      Target    : %s\n", private$target))
-                         cat(sprintf("      n         : %s\n", nrow(private$data_frame)))
-                         cat(sprintf("      Missing   : %s\n", sum(!complete.cases(private$data_frame))))
-                         cat(sprintf("      p         : %s\n", ncol(private$data_frame)))
+                         cat(sprintf("      Layer      : %s\n", private$train_layer$getId()))
+                         cat(sprintf("      Ind. id.   : %s\n", private$ind_col))
+                         cat(sprintf("      Target     : %s\n", private$target))
+                         cat(sprintf("      n          : %s\n", nrow(private$data_frame)))
+                         cat(sprintf("      Missing    : %s\n", sum(!complete.cases(private$data_frame))))
+                         cat(sprintf("      p          : %s\n", ncol(private$data_frame)))
                        },
                        #' @description
                        #' Getter of the current \code{data.frame} wihtout individual
diff --git a/R/Training.R b/R/Training.R
index a65658f..4987b14 100644
--- a/R/Training.R
+++ b/R/Training.R
@@ -487,6 +487,44 @@ Training <- R6Class("Training",
                           return(meta_layer)
                         },
                         #' @description
+                        #' Retrieve models from all layer.
+                        #'
+                        #' @return
+                        #' A \code{list} containing all (base and meta) models.
+                        #' @export
+                        #'
+                        getModel = function() {
+                          layers = self$getKeyClass()
+                          # This code accesses each layer (except TrainMetaLayer) level
+                          # and get the individual IDs.
+                          layers = layers[layers$class %in% c("TrainLayer", "TrainMetaLayer"), ]
+                          current_model = NULL
+                          models = list()
+                          for (k in layers$key) {
+                            layer = self$getFromHashTable(key = k)
+                            models[[layer$getId()]] = layer$getModel()$getBaseModel()
+                          }
+                          return(models)
+                        },
+                        #' @description
+                        #' Retrieve meta data.
+                        #'
+                        #' @return
+                        #' A \code{list} containing all (base and meta) models.
+                        #' @export
+                        #'
+                        getData = function() {
+                          layers = self$getKeyClass()
+                          layers = layers[layers$class %in% c("TrainLayer", "TrainMetaLayer"), ]
+                          current_model = NULL
+                          all_data = list()
+                          for (k in layers$key) {
+                            layer = self$getFromHashTable(key = k)
+                            all_data[[layer$getId()]] = layer$getTrainData()$getDataFrame()
+                          }
+                          return(all_data)
+                        },
+                        #' @description
                         #' Remove a layer of a given ID.
                         #'
                         #' @param id `character(1)` \cr
@@ -619,6 +657,7 @@ Training <- R6Class("Training",
                           cat("----------------\n")
                           cat("\n")
                           layers = self$getKeyClass()
+                          layers = layers[layers$class %in% c("TrainLayer", "TrainMetaLayer"), ]
                           for (k in layers$key) {
                             layer = self$getFromHashTable(key = k)
                             layer$summary()
diff --git a/R/testingFunctions.R b/R/testingFunctions.R
index 63c2f28..aabfa0c 100644
--- a/R/testingFunctions.R
+++ b/R/testingFunctions.R
@@ -46,3 +46,18 @@ createTestLayer = function (testing,
                            new_layer = test_layer)
   return(testing)
 }
+
+#' @title Testing object Summaries
+#' @description
+#' Summaries a fuseMLR [Testing] object.
+#'
+#' @param object (`Testing(1)`) \cr
+#' The [Testing] object of interest.
+#' @param ... \cr
+#' Further arguments.
+#'
+#' @export
+#'
+summary.Testing = function (object, ...) {
+  return(object$summary())
+}
diff --git a/R/trainingFunctions.R b/R/trainingFunctions.R
index 5dd1beb..3ab6435 100644
--- a/R/trainingFunctions.R
+++ b/R/trainingFunctions.R
@@ -232,6 +232,51 @@ predict.Training = function (object,
   return(predictions)
 }
 
+#' @title extractModel
+#' @description
+#' Extracts models stored on each layers; base and meta models are extracted.
+#'
+#' @param training (`Training(1)`) \cr
+#' The [Training] object of interest.
+#'
+#' @return
+#' A list of models is returned.
+#' @export
+#'
+extractModel = function (training) {
+  return(training$getModel())
+}
+
+#' @title extractData
+#' @description
+#' Extracts data stored on each layers; base and meta data are extracted.
+#'
+#' @param training (`Training(1)`) \cr
+#' The [Training] object of interest.
+#'
+#' @return
+#' A list of data is returned.
+#' @export
+#'
+extractData = function (training) {
+  return(training$getData())
+}
+
+#' @title Training object Summaries
+#' @description
+#' Summaries a fuseMLR [Training] object.
+#'
+#' @param object (`Training(1)`) \cr
+#' The [Training] object of interest.
+#' @param ... \cr
+#' Further arguments.
+#'
+#' @export
+#'
+summary.Training = function (object, ...) {
+  return(object$summary())
+}
+
 #' @title upsetplot
 #' @description
 #' An upset plot of overlapping individuals.
diff --git a/README.Rmd b/README.Rmd
index a240769..18bc8dc 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -185,14 +185,14 @@ training <- fusemlr(training = training,
                     verbose = FALSE)
 
 print(training)
+# See also summary(training)
 ```
 
-- Retrieve the basic model of a specific layer.
+- Use `extractModel` to retrieve the list of stored models and `extractData` to retrieve training data.
 
 ```{r basic_lrnr, include=TRUE, eval=TRUE}
-lay_genexpr <- training$getLayer(id = "geneexpr")
-model_ge <- lay_genexpr$getModel()
-print(model_ge)
+models_list <- extractModel(training = training)
+data_list <- extractData(training = training)
 ```
 
 #### E) Predicting
diff --git a/man/Training.Rd b/man/Training.Rd
index b66b239..6661ed9 100644
--- a/man/Training.Rd
+++ b/man/Training.Rd
@@ -48,6 +48,8 @@ Use the function \code{train} for training and \code{predict} for predicting.
 \item \href{#method-Training-getIndIDs}{\code{Training$getIndIDs()}}
 \item \href{#method-Training-getLayer}{\code{Training$getLayer()}}
 \item \href{#method-Training-getTrainMetaLayer}{\code{Training$getTrainMetaLayer()}}
+\item \href{#method-Training-getModel}{\code{Training$getModel()}}
+\item \href{#method-Training-getData}{\code{Training$getData()}}
 \item \href{#method-Training-removeLayer}{\code{Training$removeLayer()}}
 \item \href{#method-Training-removeTrainMetaLayer}{\code{Training$removeTrainMetaLayer()}}
 \item \href{#method-Training-getIndCol}{\code{Training$getIndCol()}}
@@ -363,6 +365,32 @@ Object from class \link{TrainMetaLayer}
 }
 }
 \if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-Training-getModel"></a>}}
+\if{latex}{\out{\hypertarget{method-Training-getModel}{}}}
+\subsection{Method \code{getModel()}}{
+Retrieve models from all layer.
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Training$getModel()}\if{html}{\out{</div>}}
+}
+
+\subsection{Returns}{
+A \code{list} containing all (base and meta) models.
+}
+}
+\if{html}{\out{<hr>}}
+\if{html}{\out{<a id="method-Training-getData"></a>}}
+\if{latex}{\out{\hypertarget{method-Training-getData}{}}}
+\subsection{Method \code{getData()}}{
+Retrieve meta data.
+\subsection{Usage}{
+\if{html}{\out{<div class="r">}}\preformatted{Training$getData()}\if{html}{\out{</div>}}
+}
+
+\subsection{Returns}{
+A \code{list} containing all (base and meta) models.
+}
+}
+\if{html}{\out{<hr>}}
 \if{html}{\out{<a id="method-Training-removeLayer"></a>}}
 \if{latex}{\out{\hypertarget{method-Training-removeLayer}{}}}
 \subsection{Method \code{removeLayer()}}{
diff --git a/man/extractData.Rd b/man/extractData.Rd
new file mode 100644
index 0000000..f695a37
--- /dev/null
+++ b/man/extractData.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/trainingFunctions.R
+\name{extractData}
+\alias{extractData}
+\title{extractData}
+\usage{
+extractData(training)
+}
+\arguments{
+\item{training}{(\code{Training(1)}) \cr
+The \link{Training} object of interest.}
+}
+\value{
+A list of data is returned.
+}
+\description{
+Extracts data stored on each layers; base and meta data are extracted.
+}
diff --git a/man/extractModel.Rd b/man/extractModel.Rd
new file mode 100644
index 0000000..00a7432
--- /dev/null
+++ b/man/extractModel.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/trainingFunctions.R
+\name{extractModel}
+\alias{extractModel}
+\title{extractModel}
+\usage{
+extractModel(training)
+}
+\arguments{
+\item{training}{(\code{Training(1)}) \cr
+The \link{Training} object of interest.}
+}
+\value{
+A list of models is returned.
+}
+\description{
+Extracts models stored on each layers; base and meta models are extracted.
+}
diff --git a/man/summary.Testing.Rd b/man/summary.Testing.Rd
new file mode 100644
index 0000000..391054f
--- /dev/null
+++ b/man/summary.Testing.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/testingFunctions.R
+\name{summary.Testing}
+\alias{summary.Testing}
+\title{Testing object Summaries}
+\usage{
+\method{summary}{Testing}(object, ...)
+}
+\arguments{
+\item{object}{(\code{Testing(1)}) \cr
+The \link{Testing} object of interest.}
+
+\item{...}{\cr
+Further arguments.}
+}
+\description{
+Summaries a fuseMLR \link{Testing} object.
+}
diff --git a/man/summary.Training.Rd b/man/summary.Training.Rd
new file mode 100644
index 0000000..384e04d
--- /dev/null
+++ b/man/summary.Training.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/trainingFunctions.R
+\name{summary.Training}
+\alias{summary.Training}
+\title{Training object Summaries}
+\usage{
+\method{summary}{Training}(object, ...)
+}
+\arguments{
+\item{object}{(\code{Training(1)}) \cr
+The \link{Training} object of interest.}
+
+\item{...}{\cr
+Further arguments.}
+}
+\description{
+Summaries a fuseMLR \link{Training} object.
+}