https://github.com/cran/season
Tip revision: 6afc949373932f0195a9ae65146c4134cecf71d1 authored by Adrian Barnett on 28 July 2010, 00:00:00 UTC
version 0.2-5
version 0.2-5
Tip revision: 6afc949
print.summary.Cosinor.R
print.summary.Cosinor <- function(x, ...){
## report results
if (class(x)!="summary.Cosinor"){
stop("Object must be of class 'summary.Cosinor'")
}
cat('Cosinor test\n')
cat('Number of observations =',x$n,'\n')
cat('Amplitude =',x$amp,x$amp.scale,'\n')
cat('Phase:',x$phase,'\n')
cat('Low point:',x$lphase,'\n')
cat('Significant seasonality based on adjusted significance level of',
x$alpha/2,' = ',x$significant,'\n', ...)
}