data("xpdb_ex_pk", package = "xpose")
# Arbitrary copy
xpdb_ex_pk2 <- xpdb_ex_pk
# Simplest call
set1 <- xpose_set(xpdb_ex_pk, xpdb_ex_pk2)
# With predefined relationships
set2 <- xpose_set(xpdb_ex_pk, xpdb_ex_pk2,
.relationships = list(xpdb_ex_pk2 ~ xpdb_ex_pk)
)
# Alternative predefined relationships
set2b <- xpose_set(xpdb_ex_pk, xpdb_ex_pk2,
.as_ordered = TRUE
)
# With custom labels
set3 <- xpose_set(mod1 = xpdb_ex_pk, mod2 = xpdb_ex_pk2,
.relationships = list(mod2 ~ mod1)
)
# Alternative set3 using dyanmic dots
mod_list <- list(
mod1 = xpdb_ex_pk,
mod2 = xpdb_ex_pk2
)
mod_rels <- list(
mod2 ~ mod1
)
set3b = xpose_set(!!!mod_list, .relationships = mod_rels)
Run the code above in your browser using DataLab