superpose_mol_seal: superpose_mol_seal
In conmolfields: Continuous molecular fields

superpose_mol_seal

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