# Out example
ldk.h <- get_ldk(hearts)
stack(Ldk(ldk.h))
# on Ldk (no slidings)
get_ldk(wings) # equivalent to wings$coo
# on Ldk (slidings)
get_ldk(chaff)
get_ldk(chaff) %>% Ldk %>% fgProcrustes(tol=0.1) %>% stack
Run the code above in your browser using DataLab