https://github.com/cran/pracma
Revision d5bfb0e3b7a3211ff2bbe2926e5ba31aa24e4df6 authored by HwB on 09 March 2012, 00:00:00 UTC, committed by Gabor Csardi on 09 March 2012, 00:00:00 UTC
1 parent 63e8a52
Tip revision: d5bfb0e3b7a3211ff2bbe2926e5ba31aa24e4df6 authored by HwB on 09 March 2012, 00:00:00 UTC
version 1.0.1
version 1.0.1
Tip revision: d5bfb0e
hadamard.R
##
## ha d a m a r d . R Test suite
##
hadamard <- pracma::hadamard
toeplitz <- pracma::toeplitz
all.equal(hadamard(2),
matrix(c(1, 1, 1, -1), 2, 2))
all.equal(hadamard(4),
matrix(c(1, 1, 1, 1,
1, -1, 1, -1,
1, 1, -1, -1,
1, -1, -1, 1), 4, 4))
H12 <- hadamard(12)
all.equal(t(H12) %*% H12,
diag(12, 12, 12))
H20 <- hadamard(20)
all.equal(t(H20) %*% H20,
diag(20, 20, 20))
all.equal(toeplitz(c(1, 2, 4, 6, 8), c(1, 3, 5, 7, 9)),
matrix(c(1, 3, 5, 7, 9,
2, 1, 3, 5, 7,
4, 2, 1, 3, 5,
6, 4, 2, 1, 3,
8, 6, 4, 2, 1), 5, 5, byrow = TRUE))
Computing file changes ...