R/saveload.R

In gplite: General Purpose Gaussian Process Modelling

#' Save and load a GP model
#'
#' Convenience functions for saving and loading GP models.
#'
#' @name gp_saveload
#'
#' @param gp The gp model object to be saved.
#' @param filename Where to save or load from.
#'
#' @return \code{gp_load} returns the loaded GP model object.
#'
#' @examples
#'
#  # init the model
#' gp <- gp_init()
#' 
#' # fit the model (skipped here)
#' 
#' # save the model
#' filename <- file.path(tempdir(), 'gp.rda')
#' gp_save(gp, filename)
#' 
#' # load the model and remove the file
#' gp <- gp_load(filename)
#' file.remove(filename)
#' 
#'
NULL

#' @rdname gp_saveload
#' @export
gp_save <- function(gp, filename) {
  save(gp, file = filename)
}

#' @rdname gp_saveload
#' @export
gp_load <- function(filename) {
  model <- load(filename)
  get(model)
}