R/coef.R

In exoplanetX/greyforecasting: A package for grey systems forecasting methods

#' fetch the parameters in grey forecasting object
#' @param y data sequence
#' @examples
#' g<-gm(y)
#' coef(g)
#' @export
coef.greyforecasting <- function(x){
  cat("parameters a and b are:\n")
  print(x$parameter)
}