R/summary.BAEssd.R

Defines functions summary.BAEssd

Documented in summary.BAEssd

summary.BAEssd <-
function(object,...){
  ### Obtain the relevant information
  out <- as.numeric(object$history[object$history$n==object$n,])
  
  names(out) <- colnames(object$history)
  attributes(out) <- c(attributes(out),attributes(object$n))
  class(out) <- "summary.BAEssd"

  return(out)
}

Try the BAEssd package in your browser

Any scripts or data that you put into this service are public.

BAEssd documentation built on May 29, 2017, 4:12 p.m.