superpose_mol_seal
superpose_mol_seal(mol_m, mol_t, verbose=TRUE, maxit=100, ntrials=5)
mol_m | |
---|---|
mol_t | |
verbose | TRUE |
maxit | 100 |
ntrials | 5 |
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as superpose_mol_seal <- function(mol_m, mol_t, verbose=TRUE, maxit=100, ntrials=5) { calc_mol2mol_transvec <- function(mol_m, mol_r) { xyz_m <- mol2xyz(mol_m) xyz_r <- mol2xyz(mol_r) mean_m <- rowMeans(xyz_m) mean_r <- rowMeans(xyz_r) mean_r - mean_m } }