Nothing
#' Getters for a pim object
#'
#' This function allows you to extract a formula from a \code{\link{pim}}
#' or a \code{\link{pim.formula}} object. In the latter case, you extract
#' the original formula.
#'
#' @param x a \code{pim} or \code{pim.formula} object
#' @param orig a locigal value indicating whether the original formula
#' (\code{TRUE}) or the \code{pim.formula} object (\code{FALSE}) should
#' be returned. Defaults to \code{FALSE}
#' @param ... arguments passed to other methods
#'
#' @rdname formula
#' @include pim-class.R
#' @export
setGeneric("formula")
formula.pim <- function(x, orig=FALSE, ...){
if(orig) formula(x@formula) else x@formula
}
#' @rdname formula
setMethod("formula",
signature="pim",
formula.pim)
formula.pim.formula <- function(x, ...){
x@orig
}
#' @rdname formula
setMethod("formula",
signature="pim.formula",
formula.pim.formula)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.