source("report.r")

# small sample of how to use the reporting stuff

data(swiss)
attach(swiss)
swiss.lm <- lm(Catholic ~ Fertility)
swiss.aov <- aov(swiss.lm)

swiss.report <- report.new("Swiss Data Report")
report.begin(swiss.report)

report(summary(swiss),swiss.report)
report(swiss.lm,swiss.report)
report(summary(swiss.lm),swiss.report)
report(swiss.aov,swiss.report)
report(summary(swiss.aov),swiss.report)

# a simple plot
report.plot("fit1.png",formula(swiss.lm),swiss.report)

# a more complex plot
report.plot("fit2.png",swiss.lm,swiss.report,plotfunc=function(x) {
  plot(formula(swiss.lm))
  abline(swiss.lm)
})


# all done
report.end(swiss.report)