shipunov (version 1.5)

MDSv: MDS: explained variance (surrogate)

Description

MDS: explained variance (surrogate)

Usage

MDSv(scores)

Arguments

scores

Data frame or matrix with values (e.g., result of 'isoMDS()'

Value

Numeric vector, one values per column of scores

Details

MDS explained variance (surrogate, regression-based)

Examples

# NOT RUN {
iris.dist <- dist(iris[, 1:4], method="manhattan")
iris.dist[iris.dist == 0] <- abs(jitter(0))
library(MASS)
iris.m <- isoMDS(iris.dist)
cor(iris[, 1:4], iris.m$points) # MDS loadings surrogate
MDSv(iris.m$points) # MDS explained variance surrogate
# }