### Custom note function
signif.pct <- function(env) {
paste("$^*$ significant at", evalq(lev,envir=env)*100, "percent")
}
### Continue the example from apsrtable
## Not run:
# apsrtable(lm.D90, lm.D9, glm.D9, digits=1, align="left",
# stars=1, lev=0.05, model.counter=0, order="rl",
# notes=list(se.note, signif.pct,
# "Plant weight data from the lm() example" )
# )
# ## End(Not run)
Run the code above in your browser using DataLab