## Do not edit this file manually.
## It has been automatically generated from mixAR.org.
## This gives roughly what "methods" will do for us when there is no default, so
## don't bother.
##
## mix_se <- function(x, model, ...){
## stop("No applicable method for mix_se with class(x) = `", class(x),
## "' and class(model) = `", class(model), "'")
## }
setGeneric("mix_se",
function(x, model, fix_shift = FALSE) standardGeneric("mix_se"),
useAsDefault = FALSE
)
setMethod("mix_se", signature(x = "ANY", model = "MixAR"),
function(x, model, fix_shift = FALSE){
std_err_mixar(x, model, fix_shift)
})
setMethod("mix_se", signature(x = "ANY", model = "MixARGaussian"),
function(x, model, fix_shift = FALSE){
std_err_mixar(x, model, fix_shift)
})
setMethod("mix_se", signature(x = "ANY", model = "list"),
function(x, model, fix_shift = FALSE){
if(is(model$model, "MixARGaussian")) model <- model$model
else stop("Invalid input list. Must be output list from fit_mixAR()")
std_err_mixar(x, model, fix_shift)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.