f******9
发帖数: 267 | 1 再请教师兄师姐们一个问题：
有100个数，如何用R算出它们彼此间的距离，然后得到一个100*100的matrix呢？
谢谢！ | D******n
发帖数: 2836 | | s*r
发帖数: 2757 | 3 what if we want the squared difference? distances cannot be negative
【在 D******n 的大作中提到】
: outer(A,A,"-")
| s*******f
发帖数: 148 | 4 like this@@?
> distance<-function(x,y) {(x-y)^2}
> outer(A,A,distance)
【在 s*r 的大作中提到】
: what if we want the squared difference? distances cannot be negative
| s*r
发帖数: 2757 | 5 thx
【在 s*******f 的大作中提到】
: like this@@?
: > distance<-function(x,y) {(x-y)^2}
: > outer(A,A,distance)
| f******9
发帖数: 267 | 6 Thanks very much!
【在 D******n 的大作中提到】
: outer(A,A,"-")
| f******9
发帖数: 267 | 7 thanks@@@
【在 s*******f 的大作中提到】
: like this@@?
: > distance<-function(x,y) {(x-y)^2}
: > outer(A,A,distance)
| D******n
发帖数: 2836 | 8 hmm, i was just lazy
outer(A,A,function(x,y) abs(x-y)) | g********r
发帖数: 8017 | 9 dist()
【在 f******9 的大作中提到】
: 再请教师兄师姐们一个问题：
: 有100个数，如何用R算出它们彼此间的距离，然后得到一个100*100的matrix呢？
: 谢谢！
| f******9
发帖数: 267 | 10 Cool! thx
【在 D******n 的大作中提到】
: hmm, i was just lazy
: outer(A,A,function(x,y) abs(x-y))
| f******9
发帖数: 267 | 11 thanks very much
【在 g********r 的大作中提到】
: dist()
|
|
