Average Precision (APR)

Hi,

Is there a R library (code) to calculate Average Precision?
I have been using ROCR to calculate other measure like AUC, F-measure etc.
But ARP (average precision) was not available although it provides
precision/recall.

I am almost sure that someone already implemented it.

wan