p1 <- center() |> prep()
p2 <- center() |> prep()
x1 <- rbind(1:10, 2:11)
x2 <- rbind(1:10, 2:11)
p1a <- init_transform(p1,x1)
p2a <- init_transform(p2,x2)
clist <- concat_pre_processors(list(p1,p2), list(1:10, 11:20))
t1 <- apply_transform(clist, cbind(x1,x2))
t2 <- apply_transform(clist, cbind(x1,x2[,1:5]), colind=1:15)
Run the code above in your browser using DataLab