Skip to content
Prev 476 / 15274 Next

Portfolio performance metrics/ratios

As I had written, these are portfolio performance metrics - those that
an investor or evaluator of a fund would calculate given the return
series. So in that sense there is not much statistics in it and
functions are standard and straight forward - this is the reason I
thought that some package must contain them,

Anyways, it is done now. e.g.

sortino <- function(returns, MAR = 0) {
	if (length (returns) <= 1) NA
	else mean (returns - MAR) / downDeviation(returns, MAR)
}

trackingError <- function (portfolio, benchmark) {
	if (length (portfolio) != length (benchmark)) NA
	else if (length (portfolio) <= 1) NA
	else sd (portfolio - benchmark)
}

informationRatio <- function (portfolio, benchmark) {
	if (length (portfolio) != length (benchmark)) NA
	else if (length (portfolio) <= 1) NA
	else mean (portfolio - benchmark) / trackingError (portfolio, benchmark)
}

In case anyone needs these let me know - there are a lot of them. I
can clean them up and send it,
Thanks for the help,

Sankalp
On 10/10/05, Spencer Graves <spencer.graves at pdf.com> wrote:
--
--
Sankalp Upadhyay
Investment Analyst
Roulac Global Funds