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
summary.casecross.R
## summary.casecross.R
## Summarise results from casecross
## Oct 2011
summary.casecross<-function(object, ...){
## Check
if (class(object)!="casecross"){stop("Object must be of class 'casecross'")}
## output results
if(object$call$stratamonth==FALSE){cat('Time-stratified case-crossover with a stratum length of',
object$call$stratalength,'days\n')}
if(object$call$stratamonth!=FALSE){cat('Time-stratified case-crossover with months as strata\n')} # Added Oct 2011
if(object$call$matchdow==TRUE){cat('Matched on day of the week\n')}
if(object$call$matchconf!=''){
cat('Matched on',object$call$matchconf,'plus/minus',
object$call$confrange,'\n')
}
cat('Total number of cases',object$ncases,'\n')
cat('Number of case days with available control days',object$ncasedays,'\n')
cat('Average number of control days per case day',object$ncontroldays,'\n')
cat('\nParameter Estimates:\n')
s<-summary(object$c.model)
print(s$coef, ...)
}