powered by
Evaluation.Precision.at.k(EstimatedRank, RelevanceLevel, k)
EstimatedRank <- scramble(1:10) RelevanceLevel <- runif(10) Evaluation.Precision.at.k(EstimatedRank, RelevanceLevel, 5)
Run the code above in your browser using DataLab