Hello Dennis
You're correct, it's a rounding issue. Two options. Firstly, in the latest version of epiR (2.0.46) there's an argument 'digits' which allows you to change the number of digits in the printed output for epi.tests. So use something like:
epi.tests(c(1,13,1,28), method = "exact", digits = 3, conf.level = 0.95)
Second option is to ask for summary on a named epi.tests object. For example:
rval <- epi.tests(c(1,13,1,28), method = "exact", digits = 3, conf.level = 0.95)
summary(rval)
Hope that helps.
Mark Stevenson