## File Name: summary.tam.wle.R
## File Version: 0.08
summary.tam.wle <- function( object, file=NULL, digits=3, ...)
{
tam_osink(file=file)
print.tam.wle(x=object, digits=digits, ...)
tam_csink(file=file)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.