R/averageoverlap.R
In Virginia224/rankingagreement:
Defines functions
averageoverlap
# Average Overlap
averageoverlap <- function(x, y, k) {
Ad <- sapply(1:k, function(i) length(intersect(x[1:i], y[1:i])))/seq(1,k)
AO <- cumsum(Ad)/seq(1,k)
return(AO[k])
}
Virginia224/rankingagreement documentation built on July 13, 2020, 9:28 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions averageoverlap
# Average Overlap
averageoverlap <- function(x, y, k) {
Ad <- sapply(1:k, function(i) length(intersect(x[1:i], y[1:i])))/seq(1,k)
AO <- cumsum(Ad)/seq(1,k)
return(AO[k])
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.