dats <- na.omit(PVQ40[,1:5])
diss <- dist(t(dats)) ## Euclidean distances
fit <- stops(diss,loss="rstress",itmax=5,lower=0.2,upper=3)
set.seed(123)
resboot <- bootmds(fit, dats, method.dat = "euclidean", nrep = 2)
resboot
Run the code above in your browser using DataLab