Displaying 2 results from an estimated 2 matches for "sigdist".
2008 Nov 28
0
ranking the results of a questionnaire
...is my simple code and an small example run:
R version 2.7.1 (2008-06-23)
Copyright (C) 2008 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
> L<-c(32.8,5.3, 26.3,9.0, 35.1,6.2, 33.4,6.3, 22.9,12.9)
> G<-c(37.4,8.1, 30.6,9.7, 32.0,7.9, 29.7, 9.0, 17.1,10.8)
> sigdist<- function (L,G)
sqrt(
sign( G[1]-L[1] )*(G[1]-L[1])^2
+ sign( G[2]-L[2] )*(G[2]-L[2])^2
+ sign( G[3]-L[3] )*(G[3]-L[3])^2
+ sign( G[4]-L[4] )*(G[4]-L[4])^2
- sign( G[5]-L[5] )*(G[5]-L[5])^2
+ sign( G[6]-L[6])*(G[6]-L[6])^2
- sign( G[7]-L[7] )*(...