Native multi-domain entry point (optional)
Value
The return value depends on the aligner method. Typically a multiblock_biprojector or similar alignment result object.
Examples
# \donttest{
set.seed(1)
library(multidesign)
X1 <- matrix(rnorm(60), 30, 2)
X2 <- matrix(rnorm(60), 30, 2)
labels <- sample(c("A", "B"), 30, TRUE)
design1 <- data.frame(labels = labels)
design2 <- data.frame(labels = labels)
md1 <- multidesign(X1, design1)
md2 <- multidesign(X2, design2)
hd <- hyperdesign(list(d1 = md1, d2 = md2))
algo <- kema_aligner()
result <- fit_many(algo, hd, y = labels, ncomp = 2)
#> Warning: KEMA fidelity checks failed for backend 'full_exact': max_rel_residual=0.946, max_B_orth_offdiag=4.32e-10
# }