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