https://github.com/cran/ftsa
Tip revision: 7621951a183186ccd8706e35121ccdc4dbfddd1a authored by Shang H on 10 December 2014, 07:56:05 UTC
version 4.1
version 4.1
Tip revision: 7621951
summary.fm.R
summary.fm = function (object, ...)
{
if(class(object)[1] == "fm"|class(object)[1] == "ftsm"){
print(object)
junk <- MISE(object$y, object$fitted)
junk1 <- cbind(junk$ME, junk$MSE, junk$MPE, junk$MAPE)
colnames(junk1) <- c("ME", "MSE", "MPE", "MAPE")
junk2 <- cbind(junk$MIE, junk$MISE, junk$MIPE, junk$MIAPE)
colnames(junk2) = c("IE", "ISE", "IPE", "IAPE")
cat(paste("\nAverages across x:\n"))
print(round(colMeans(junk1), 5))
cat(paste("\nAverages across time:\n"))
print(round(colMeans(junk2), 5))
cat("\n")
}
else{
warning("object is neither a functional time series model nor a functional model.")
}
}