1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
library(Hmisc)
named.equal <- function(x,y) {
x.names <- sort(names(x))
y.names <- sort(names(y))
if(!identical(x.names, y.names)) {
cat("x names: ", paste(x.names, combine=', '), "\ny names: ", paste(y.names, combine=', '), sep='')
stop("x and y do not have the same element names")
}
if(any(x.names == "") || any(y.names == "")) {
cat("x names: ", paste(x.names, combine=', '), "\ny names: ", paste(y.names, combine=', '), sep='')
stop("x or y has unnamed elements")
}
if(!identical(x[x.names], y[x.names])) {
print(x)
print(y)
stop("x and y do not have identical element values")
}
return(TRUE)
}
a <- c(a = 5, b = 2, c = 4)
b <- c(c = 3, d = 4, e = 12)
c <- list(q = 5, h = 2, b = 14)
d <- list(w = 2, h = 3, e = 21)
a1 <- structure(c(5, 2, 3, 4, 12),
.Names = c("a", "b", "c", "d", "e"))
a2 <- structure(list(a = 5, b = 14, c = 4, q = 5, h = 2),
.Names = c("a", "b", "c", "q", "h"))
a3 <- structure(list(q = 5, h = 2, b = 2, a = 5, c = 4),
.Names = c("q", "h", "b", "a", "c"))
a4 <- structure(list(q = 5, h = 3, b = 14, w = 2, e = 21),
.Names = c("q", "h", "b", "w", "e"))
a5 <- structure(c(5,2,4,4,12),
.Names = c("a", "b", "c", "d", "e"))
a6 <- structure(list(a = 5, b = 2, c = 4, q = 5, h = 2),
.Names = c("a", "b", "c", "q", "h"))
a7 <- structure(list(q = 5, h = 2, b = 14, a = 5, c = 4),
.Names = c("q", "h", "b", "a", "c"))
a8 <- structure(list(q = 5, h = 2, b = 14, w = 2, e = 21),
.Names = c("q", "h", "b", "w", "e"))
r1 <- combine(a, b, protect=FALSE)
r2 <- combine(a, c, protect=FALSE)
r3 <- combine(c, a, protect=FALSE)
r4 <- combine(c, d, protect=FALSE)
is.vector(r1)
is.list(r2)
is.list(r3)
is.list(r4)
named.equal(r1, a1)
named.equal(r2, a2)
named.equal(r3, a3)
named.equal(r4, a4)
r5 <- combine(a, b, protect=TRUE)
r6 <- combine(a, c, protect=TRUE)
r7 <- combine(c, a, protect=TRUE)
r8 <- combine(c, d, protect=TRUE)
named.equal(r5, a5)
named.equal(r6, a6)
named.equal(r7, a7)
named.equal(r8, a8)
named.equal(r3, r6)
named.equal(r2, r7)
e <- a
combine(e) <- b
named.equal(e, r1)
e <- a
combine(e, protect = TRUE) <- b
named.equal(e, r5)
f <- c(1,2,3,5)
combine(attributes(f)) <- c
named.equal(attributes(f), c)
combine(attributes(f)) <- NULL
named.equal(attributes(f), c)
|
