R/predict.ngssm.bayes.p.r

In NGSSEML: Non-Gaussian State-Space with Exact Marginal Likelihood

#' Predict ngssm.mle.p object.
#'
#' @param x ngssm.mle.p object
#' @param ... ignored
#'@noRd
predict.ngssm.bayes.p<- function(object,data=NULL,hh=NULL,...){
  if(!is.null(hh)){
    if (object$model!= "Poisson" && object$model!="SRGamma" && object$model!="SRWeibull")stop("Sorry! Forecasting is not available for the model.")
  }
  if(is.null(hh) ) {
    objecta <- list(object$fitted.values)
  } else if (object$model=="Poisson" || object$model=="SRGamma" || object$model=="SRWeibull"){
    objecta<-list(ngssm.bayes.p(object,data=data,hh=hh))
  }
  else{
    objecta <- list(object$fitted.values)
  }
  class(objecta) = "ngssm.bayes"
  return(objecta)
}
#predict.ngssm.mle(fit,data=NULL)
#predict(fit,data=NULL)