EukPhylo/PTL2/Scripts-GRID/guidance.v2.02/libs/phylogeny/fromCountTableComponentToDistancefixRoot.cpp
Katzlab dd76ab1d12 Added PTL2 Scripts
These are PTL2 files from Auden 2/9
2023-02-14 11:20:52 -05:00

28 lines
1.0 KiB
C++

// $Id: fromCountTableComponentToDistance.cpp 4471 2008-07-17 15:38:50Z cohenofi $
#include "fromCountTableComponentToDistancefixRoot.h"
#include "likeDistfixRoot.h"
#include <cassert>
fromCountTableComponentToDistancefixRoot::fromCountTableComponentToDistancefixRoot(
const vector<countTableComponentGam>& ctc,
const stochasticProcess &sp,
const MDOUBLE toll,
const MDOUBLE brLenIntialGuess,
unObservableData* unObservableData_p)
: _sp(sp), _ctc(ctc) {
_distance =brLenIntialGuess ;//0.03;
_toll = toll;
_unObservableData_p = unObservableData_p;
}
void fromCountTableComponentToDistancefixRoot::computeDistance() {
MDOUBLE maxPairwiseDistance = 5.0; // The default
MDOUBLE minPairwiseDistance = 0.0000001; // The default
likeDistfixRoot likeDist1(_sp,_toll,maxPairwiseDistance,minPairwiseDistance,_unObservableData_p);
MDOUBLE initGuess = _distance;
_distance = likeDist1.giveDistance(_ctc,_likeDistance,initGuess); // each ctc is per node, and include all letterAtRoot
assert(_distance>=0);
}