print.ir <-
function(x,row.names=F) {
# print.char.matrix(t(attr(t1,"colnames1")))
print.char.matrix(x,row.names=row.names,col.names=F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.