-## mvr.R (2011-10-11)
+## mvr.R (2012-03-30)
## Minimum Variance Reduction
mvrs <- function(X, V, fs = 15)
{
+ if (fs < 1)
+ stop("argument 'fs' must be a non-zero positive integer")
+
if (is.matrix(X)) X <- as.dist(X)
if (is.matrix(V)) V <- as.dist(V)