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

y

base::matrix() of points

y.weights

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