R/getData.sitar.R

In statist7/sitar: Super Imposition by Translation and Rotation Growth Curve Analysis

#' Extract elements of fitted SITAR models
#'
#' getData, getCovariate and getVarCov methods for \code{sitar} objects,
#' based on \code{lme}.
#'
#'
#' @param object,obj an object inheriting from class \code{sitar}.
#' @param \dots other optional arguments.
#' @return Respectively the data frame and \code{x} variable
#' used in the fit, and the returned variance-covariance matrix.
#' @author Tim Cole \email{tim.cole@@ucl.ac.uk}
#' @method getData sitar
#' @export
  getData.sitar <- function(object) {
    object$call <- object$call.sitar
    class(object) <- 'lme'
    getData(object)
  }

#' @rdname getData.sitar
#' @method getCovariate sitar
#' @export
  getCovariate.sitar <- function(object, ...) {
    eval(object$call.sitar$x, getData(object))
  }

#' @rdname getData.sitar
#' @method getVarCov sitar
#' @export
  getVarCov.sitar <- function(obj, ...) {
    class(obj) <- 'lme'
    getVarCov(obj)
  }