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