dis<-as.matrix(smacof::kinshipdelta)
res1<-powerStressMin(dis)
res0<-smacof::mds(dis)
res2<-smacof::mds(dis,type="ordinal")
alignplot(list(res1,res2),reference=res0$conf,mains=c("pstress","ordinal"),layoutmat=c(1,2))
Run the code above in your browser using DataLab