##see ?smacof::bootmds for more
data <- na.omit(smacof::PVQ40[,1:5])
diss <- dist(t(data)) ## Euclidean distances
fit <- rStressMin(diss,r=0.5,itmax=1000) ## 2D ratio MDS
set.seed(123)
resboot <- bootmds(fit, data, method.dat = "euclidean", nrep = 10) #run for more nrep
resboot
plot(resboot) #see ?smacof::bootmds for more on the plot method
Run the code above in your browser using DataLab