Nothing
##' @export
parlabels <- function(x,exo=FALSE) {
res <- c(unlist(intfix(x)[unlist(lapply(intfix(x), function(y) !is.na(y) & !is.numeric(y)))]),
regfix(x)$labels[!is.na(regfix(x)$labels)],
covfix(x)$labels[!is.na(covfix(x)$labels)])
if (!is.null(x$exfix))
res <- c(res,
unlist(x$exfix[!is.na(x$exfix) && !is.numeric(x$exfix)]))
if (exo)
res <- intersect(res,index(Model(x))$exogenous)
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.