coef.gcompdicho<-function(x, digits=3, ...){
object<-x
rm(x)
if(inherits(object,"gcompdicho")){
return(round(object$CoefList,digits=digits))}}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.