`summary.portReturn` <-
function(object, ...){
cat('Expected Return', object$R, '\n')
cat('Risk estimate ', sqrt(object$VAR), '\n')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.