R/f.true.model.comp.string.R

Defines functions f.true.model.comp.string

f.true.model.comp.string <- function(model.comp) {
    string <- ""
    if (!is.null(model.comp$ma)) 
        string <- paste(string, "ma:", paste(model.comp$ma, collapse = ", "), sep = "  ")
    if (!is.null(model.comp$ar)) 
        string <- paste(string, "ar:", paste(model.comp$ar, collapse = ", "), sep = "  ")
    return(string)
}
wqmeeker/RTseries documentation built on Dec. 31, 2022, 10 a.m.