https://github.com/cran/season
Tip revision: 466309ca9e5da1f5aa56158716fee479535c50be authored by Adrian Barnett on 03 June 2021, 09:50:02 UTC
version 0.3.13
version 0.3.13
Tip revision: 466309c
print.nsCosinor.R
## print.nsCosinor.R
## Prints basic results from nsCosinor
print.nsCosinor<-function(x, ...){
## Checks
if (class(x)!="nsCosinor"){
stop("Object must be of class 'nsCosinor'")}
## Statistics ###
cat("Non-stationary cosinor\n\n")
cat("Call:\n")
print(x$call)
cat("\nNumber of MCMC samples = ",x$call$niters-x$call$burnin+1,
"\n\n",sep="")
cat("Length of time series = ",x$n,"\n",sep="")
cat("\nResidual statistics\n",sep="")
print(summary(x$residuals), ...)
} # end of function