if (FALSE) {
# Estimate seroincidence
seroincidence <- est.incidence.by(...)
# Calculate summary statistics for the seroincidence object
seroincidenceSummary <- summary(seroincidence)
# Print the summary of seroincidence object to the console
print(seroincidenceSummary)
# Or simply type (appropriate print method will be invoked automatically)
seroincidenceSummary
}
Run the code above in your browser using DataLab