R/print.stockReturns.R

Defines functions `print.stockReturns`

`print.stockReturns` <-
function(x, ...){
  totalReturn <- apply(1 + x$R, 2, prod)
  aveReturn   <- totalReturn^(1/nrow(x$R)) - 1
  cat("Time Scale:", x$period, "\n\nAverage Return\n")
  print(aveReturn)
}
jankcorn/stockPortfolio documentation built on May 14, 2019, 9:35 a.m.