### Custom note function
signif.pct <- function() {
env <- sys.frame(-3);
paste("$^*$ significant at", evalq(lev,env)*100, "percent")
}
### Continue the example from apsrtable
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" )
)Run the code above in your browser using DataLab