superpose_mol_seal

superpose_mol_seal(mol_m, mol_t, verbose=TRUE, maxit=100, ntrials=5)

Arguments

mol_m

mol_t

verbose

TRUE

maxit

100

ntrials

5

Details

Value

References

Note

See also

Examples

##---- 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 } }