Revision e903a69b2aa125d9836cba37a3b46895643f8344 authored by Doug and Martin on 07 March 2008, 00:00:00 UTC, committed by Gabor Csardi on 07 March 2008, 00:00:00 UTC
1 parent eb1f7fc
Hilbert.R
Hilbert <- function(n)
{ ## generate the Hilbert matrix of dimension n
n <- as.integer(n)
i <- seq_len(n)
new("dpoMatrix", x = c(1/outer(i - 1L, i, "+")), Dim = c(n,n))
}
Computing file changes ...
