R/summary.portReturn.R

`summary.portReturn` <-
function(object, ...){
	cat('Expected Return', object$R, '\n')
	cat('Risk estimate  ', sqrt(object$VAR), '\n')
}

Try the stockPortfolio package in your browser

Any scripts or data that you put into this service are public.

stockPortfolio documentation built on May 29, 2017, 11:32 a.m.