abs(outer(1:10, 1:10, FUN="-"))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 0 1 2 3 4 5 6 7 8 9
[2,] 1 0 1 2 3 4 5 6 7 8
[3,] 2 1 0 1 2 3 4 5 6 7
[4,] 3 2 1 0 1 2 3 4 5 6
[5,] 4 3 2 1 0 1 2 3 4 5
[6,] 5 4 3 2 1 0 1 2 3 4
[7,] 6 5 4 3 2 1 0 1 2 3
[8,] 7 6 5 4 3 2 1 0 1 2
[9,] 8 7 6 5 4 3 2 1 0 1
[10,] 9 8 7 6 5 4 3 2 1 0>
Kjetil
On Mon, Jun 28, 2010 at 5:44 PM, John Ramey <johnramey at gmail.com>
wrote:> x <- 0:10
> y <- t(replicate(11, 0:10))
> abs(sweep(y, 1, x))
>
> Hope this helps.
>
> On Mon, Jun 28, 2010 at 5:21 AM, clips10 <m.mcquillan at
lancaster.ac.uk> wrote:
>>
>> I have a vector 0 to 10 and want to create a matrix with the
differences
>> between the numbers in it for instance:
>>
>> ? ? ? ?0 ? 1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 10
>>
>> 0 ? ? ? 0 ? 1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? 8 ? 9 ? 10
>> 1 ? ? ?1 ? 0 ? 1 ? 2 ? 3 ? 4 ? 5 ? 6 ? 7 ? ?8 ? ?9
>> 2
>> 3
>> 4
>> 5
>> 6
>> 7
>> 8
>> 9
>> 10
>>
>> Etc etc. So that the matrix is filled with the differences between in
>> absolute value so there are no negatives.
>>
>> Any ideas?
>>
>> Thanks
>>
>> --
>> View this message in context:
http://r.789695.n4.nabble.com/distance-matrix-tp2270722p2270722.html
>> Sent from the R help mailing list archive at Nabble.com.
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>
>
> --
> John A. Ramey, M.S.
> Ph.D. Candidate
> Department of Statistics
> Baylor University
> http://www.ramhiser.com
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>