dats <- na.omit(PVQ40[,1:5])
diss <- dist(t(dats)) ## Euclidean distances
fit <- pcops(diss,loss="rstress",itmaxi=50) #this is just for illustration: increase itmaxi
set.seed(123)
resboot <- bootmds(fit, dats, method.dat = "euclidean", nrep = 2)
Run the code above in your browser using DataLab