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