This is a convenience function to quickly calculate the proportion of variation that one set of points captures in a another set of points using the unreliable formulation.

urap.proportion.held(x, y, y.weights = rep(1, nrow(y)))

Arguments

x base::matrix() of points base::matrix() of points numeric vector of weights for each point in y. Defaults to equal weights for all points in y.

Value

numeric value indicating the proportion of variation that x explains in y

Examples

urap.proportion.held(as.matrix(iris[1:2,-5]), as.matrix(iris[1:5,-5]))#> [1] 0.5217391