Доступен ли какой-либо пакет r для расчета внутренней нормы доходности по неравномерным платежам в определенные даты?

Существуют ли какие-либо доступные пакеты R, которые имеют некоторую форму функции, которая может рассчитать IRR на основе неравномерных платежей в определенные даты для распределения единовременной суммы.

Пример:

df <- data.frame(date = c(as.Date("2010-1-24"), as.Date("2011-5-6"), as.Date("2012-3-24")), pmts=c(-2000,-1000,-800))
today <- as.Date("2012-7-25")
lumpsum <- 4580

Я ищу простой способ рассчитать доходность 4580 долларов, полученных сегодня в обмен на график платежей, определенный выше.

Заранее спасибо, --ДТ