Last updated on 2024-03-29 01:50:58 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 1.4-5 | 2.92 | 29.03 | 31.95 | OK | |
r-devel-linux-x86_64-debian-gcc | 1.4-5 | 1.94 | 22.00 | 23.94 | OK | |
r-devel-linux-x86_64-fedora-clang | 1.4-5 | 40.89 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 1.4-5 | 38.65 | OK | |||
r-devel-windows-x86_64 | 1.4-5 | 4.00 | 381.00 | 385.00 | ERROR | |
r-patched-linux-x86_64 | 1.4-5 | 2.62 | 28.49 | 31.11 | OK | |
r-release-linux-x86_64 | 1.4-5 | 2.29 | 28.48 | 30.77 | OK | |
r-release-macos-arm64 | 1.4-5 | 19.00 | OK | |||
r-release-macos-x86_64 | 1.4-5 | 27.00 | OK | |||
r-release-windows-x86_64 | 1.4-5 | 4.00 | 46.00 | 50.00 | OK | |
r-oldrel-macos-arm64 | 1.4-5 | 16.00 | OK | |||
r-oldrel-windows-x86_64 | 1.4-5 | 5.00 | 53.00 | 58.00 | OK |
Version: 1.4-5
Check: tests
Result: ERROR
Running 'abind.R' [0s]
Comparing 'abind.Rout' to 'abind.Rout.save' ... OK
Running 'adrop.R' [0s]
Comparing 'adrop.Rout' to 'adrop.Rout.save' ... OK
Running 'afill.R' [0s]
Comparing 'afill.Rout' to 'afill.Rout.save' ...143c143
< Error in `afill<-.default`(`*tmp*`, value = -1:-6) :
---
> Error in `afill<-.default`(`*tmp*`, value = c(-1L, -2L, -3L, -4L, -5L, :
Running 'asub.R' [170s]
Running 'dnns.R' [169s]
Running the tests in 'tests/asub.R' failed.
Complete output:
> library(abind)
> x <- array(1:24,dim=c(2,3,4),dimnames=list(letters[1:2],LETTERS[1:3],letters[23:26]))
> dimnames(x)
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1, 1))
[[1]]
[1] "A" "B" "C"
[[2]]
[1] "w" "x" "y" "z"
> # example using y to check that we're getting the right 'x' in the eval inside asub()
> y <- array(1:24,dim=c(2,3,4),dimnames=list(LETTERS[1:2],letters[1:3],LETTERS[23:26]))
> dimnames(asub(y, 1, 1, drop=TRUE))
[[1]]
[1] "a" "b" "c"
[[2]]
[1] "W" "X" "Y" "Z"
> dimnames(asub(x, 1, 1, drop=FALSE))
[[1]]
[1] "a"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1, 2))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1, 2, drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1, 2, drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1, 3))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
> dimnames(asub(x, 1, 3, drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
> dimnames(asub(x, 1, 3, drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w"
> dimnames(asub(x, 1:2, 1))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1:2, 1, drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1:2, 1, drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1:2, 2))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1:2, 2, drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1:2, 2, drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, 1:2, 3))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x"
> dimnames(asub(x, 1:2, 3, drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x"
> dimnames(asub(x, 1:2, 3, drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(1,2)))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, list(1:2,2), c(1,2), drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, list(1:2,2), c(1,2), drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "B"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, list(1:2,2), c(2,1)))
[[1]]
[1] "A" "B"
[[2]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, list(1:2,2), c(2,1), drop=TRUE))
[[1]]
[1] "A" "B"
[[2]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, list(1:2,2), c(2,1), drop=FALSE))
[[1]]
[1] "b"
[[2]]
[1] "A" "B"
[[3]]
[1] "w" "x" "y" "z"
> dimnames(asub(x, list(1:2,2), c(1,3)))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
> dimnames(asub(x, list(1:2,2), c(1,3), drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
> dimnames(asub(x, list(1:2,2), c(1,3), drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "x"
> dimnames(asub(x, list(1:2,2), c(3,1)))
[[1]]
[1] "A" "B" "C"
[[2]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(3,1), drop=TRUE))
[[1]]
[1] "A" "B" "C"
[[2]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(3,1), drop=FALSE))
[[1]]
[1] "b"
[[2]]
[1] "A" "B" "C"
[[3]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(3,2)))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(3,2), drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(3,2), drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "B"
[[3]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2), c(2,3)))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
> dimnames(asub(x, list(1:2,2), c(2,3), drop=TRUE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
> dimnames(asub(x, list(1:2,2), c(2,3), drop=FALSE))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
[[3]]
[1] "x"
> dimnames(asub(x, list(1:2,2:3,1:2), c(1,2,3)))
[[1]]
[1] "a" "b"
[[2]]
[1] "B" "C"
[[3]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2:3,1:2), c(1,3,2)))
[[1]]
[1] "a" "b"
[[2]]
[1] "A" "B"
[[3]]
[1] "x" "y"
> dimnames(asub(x, list(1:2,2:3,1:2)))
[[1]]
[1] "a" "b"
[[2]]
[1] "B" "C"
[[3]]
[1] "w" "x"
> dimnames(asub(x, list(1:2,2,1:2)))
[[1]]
[1] "a" "b"
[[2]]
[1] "w" "x"
> x <- 5:1
> asub(x, 2:3)
[1] 4 3
> asub(x, list(2:3))
[1] 4 3
> x <- matrix(1:6, ncol=2)
> asub(x, list(2:3,NULL))
[,1] [,2]
[1,] 2 5
[2,] 3 6
> asub(x, list(2:3,NULL), drop=FALSE)
[,1] [,2]
[1,] 2 5
[2,] 3 6
> asub(x, list(NULL,1), drop=FALSE)
[,1]
[1,] 1
[2,] 2
[3,] 3
> asub(x, list(1), 1, drop=FALSE)
[,1] [,2]
[1,] 1 4
> asub(x, list(1), 2, drop=FALSE)
[,1]
[1,] 1
[2,] 2
[3,] 3
> i <- 1
> asub(x, i, 1)
[1] 1 4
> (function() {i <- 2; asub(x, i, 1)})()
[1] 2 5
> j <- 3
> (function() {i <- 2; asub(x, j, 1)})()
[1] 3 6
> j <- 1
> (function() {i <- 2; asub(x, j, i)})()
[1] 1 2 3
> (function() {i <- 2; (function() asub(x, j, i))()})()
[1] 1 2 3
>
> # 10-d example
> x <- array(seq(len=prod(1:10)), dim=1:10)
> dim(x)
[1] 1 2 3 4 5 6 7 8 9 10
> dim(asub(x, 1, 1))
[1] 2 3 4 5 6 7 8 9 10
> dim(asub(x, 1, 2))
[1] 3 4 5 6 7 8 9 10
> dim(asub(x, 1, 3))
[1] 2 4 5 6 7 8 9 10
> dim(asub(x, 1, 3, drop=F))
[1] 1 2 1 4 5 6 7 8 9 10
> dim(asub(x, list(1,1), c(3,5), drop=F))
[1] 1 2 1 4 1 6 7 8 9 10
> dim(asub(x, list(1,1), c(3,5)))
[1] 2 4 6 7 8 9 10
>
> proc.time()
user system elapsed
0.37 0.12 0.48
Running the tests in 'tests/dnns.R' failed.
Complete output:
> library(abind)
> x <- array(1:4, dim=c(2, 2), dimnames=list(X=c('a','b'), Y=c('d','e')))
> y <- array(5:8, dim=c(2, 2), dimnames=list(W=c('A','B'), Z=c('D','E')))
> # dimname names not used unless use.dnns=T
> abind(x, y)
d e D E
A 1 3 5 7
B 2 4 6 8
> abind(x, y, along=1)
D E
a 1 3
b 2 4
A 5 7
B 6 8
> abind(x, y, use.dnns=T)
Z
W d e D E
A 1 3 5 7
B 2 4 6 8
> abind(y, x, use.dnns=T)
Y
X D E d e
a 5 7 1 3
b 6 8 2 4
> abind(y, x, use.dnns=T, use.first.dimnames=T)
Z
W D E d e
A 5 7 1 3
B 6 8 2 4
> abind(x, y, use.dnns=T, use.first.dimnames=T)
Y
X d e D E
a 1 3 5 7
b 2 4 6 8
> abind(x, y, along=1, use.dnns=T)
Z
W D E
a 1 3
b 2 4
A 5 7
B 6 8
> abind(y, x, along=1, use.dnns=T)
Y
X d e
A 5 7
B 6 8
a 1 3
b 2 4
> abind(y, x, along=1, use.dnns=T, use.first.dimnames=T)
Z
W D E
A 5 7
B 6 8
a 1 3
b 2 4
> abind(x, y, along=1, use.dnns=T, use.first.dimnames=T)
Y
X d e
a 1 3
b 2 4
A 5 7
B 6 8
>
> proc.time()
user system elapsed
0.21 0.04 0.25
Flavor: r-devel-windows-x86_64