print.PE <- function(x, ...){
es <- format(x$res, digits = 3, trim=TRUE)
cat("\nAverage partial effect with ",(1-x$prob.lev)*100,"% interval:\n\n",sep="")
cat(es[2]," (",es[1],",",es[3],")\n\n",sep="")
invisible(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.