# \donttest{
if(requireNamespace("FCPS")){
data(Hepta,package="FCPS")
projection=cmdscale(dist(Hepta$Data), k=2)
SpearmansRho(as.matrix(dist(Hepta$Data)),as.matrix(dist(projection)))
}
# }
# \dontshow{
n=100
Data=cbind(rnorm(100),rnorm(100,2,3))
SpearmansRho(as.matrix(dist(Data)),as.matrix(dist(cbind(runif(n),runif(n)))))
# }
Run the code above in your browser using DataLab