Nothing
#' Extract response from a pim.formula or a pim object
#'
#' This function extracts the response from a
#' \code{\link{pim.formula}} for use in \code{\link{pim.fit}}.
#'
#' @param object an object of class pim or pim.formula.
#'
#' @return The response variable with pseudo-observations for
#' a pim.
#'
#' @seealso \code{\link{pim-class}} and \code{\link{pim.formula-class}}
#' for more information on the classes, and \code{\link{pim}},
#' \code{\link{pim.fit}} and \code{\link{pim.formula}} for more
#' information on related functions.
#' @examples
#' data('FEVData')
#' Model <- pim(FEV~ Smoke*Sex , data=FEVData)
#' response(Model)
#'
#' # In pieces
#' FEVenv <- new.pim.env(FEVData, compare="unique")
#' FEVform <- new.pim.formula(
#' Age ~ I(L(Height) - R(Height)) ,
#' FEVenv
#' )
#' response(FEVform)
#' @docType methods
#' @export
setGeneric("response", function(object) standardGeneric("response"))
#' @rdname response
setMethod("response",
signature = "pim.formula",
function(object){
eval(object@lhs, envir=penv(object))
})
#' @rdname response
setMethod("response",
signature = "pim",
function(object){
if(object@keep.data)
object@response
else
response(object@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.