R/param.normal.gam.R

In IQSS/ZeligGAM4: General Additive Models for Zelig

#' Simulate Parameters for the ``normal.gam'' Model
#' This method is used internally by Zelig to simulate parameters.
#' @note This method is used as part of the Zelig 4 API. This should not be
#' called explicitly.
#' @usage \method{param}{normal.gam}(obj, num=1000, ...)
#' @S3method param normal.gam
#' @param obj a zelig object
#' @param num an integer specifying the number of simulations to compute
#' @param ... additional parameters
#' @return a list specifying link, link-inverse, random samples, and ancillary
#' parameters
param.normal.gam <- function(obj, num=1000, ...) {
  coef <- mvrnorm(num, mu=coef(.fitted), Sigma=vcov(.fitted))

  list(
       simulations = coef,
       family = gaussian()
       )
}