Displaying 1 result from an estimated 1 matches for "fitteddist".
2008 Feb 20
1
Stress with MDS
...$stress stress1(nmds)
2 0,18830413 0.2912164 0.2758062 0.2658789
3 0,11521339 0.1866746 0.1754007 0.1727632
4 0,08733106 0.1638274 0.1281730 0.1271329
5 0,06942862 0.1991569 0.09756043 0.0970992
6 0,05751437 0.1563326 0.07846889 0.07822841
Here is my stress1 function
stress1<-function(datadist,fitteddist)
{sqrt(sum((datadist-fitteddist)^2)/sum(datadist^2))}
Best regards