Nothing
#' Extracts the Directions of an Epplab Object
#'
#' Extracts the found directions of an \code{epplab} object.
#'
#' The coef function extracts the directions found from the EPPlab call.
#'
#' @name coef.epplab
#' @aliases coef.epplab coef-method coef,epplab-method
#' @docType methods
#' @param object Object of class \code{epplab}.
#' @param which Specifies which directions are extracted.
#' @param ... Additional parameters.
#' @author Daniel Fischer
#' @keywords methods print
#' @examples
#'
#' library(tourr)
#' data(olive)
#' res <- EPPlab(olive[,3:10],PPalg="PSO",PPindex="KurtosisMin",n.simu=10, maxiter=20)
#' coef(res)
#'
#' @export
`coef.epplab` <- function(object,which=1:ncol(object$PPdir),...){
object$PPdir[,which,drop=FALSE]
}
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.