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

25 lines
919 B
C++

// $Id: fromCountTableComponentToDistance.cpp 9582 2011-06-21 11:31:21Z cohenofi $
#include "fromCountTableComponentToDistance.h"
#include "likeDist.h"
#include <cassert>
fromCountTableComponentToDistance::fromCountTableComponentToDistance(
const countTableComponentGam& ctc,
const stochasticProcess &sp,
const MDOUBLE toll,
const MDOUBLE brLenIntialGuess,
unObservableData* unObservableData_p) : _sp(sp), _ctc(ctc),_unObservableData_p(unObservableData_p) {
_distance = brLenIntialGuess ;//0.03;
_toll = toll;
}
void fromCountTableComponentToDistance::computeDistance() {
MDOUBLE maxPairwiseDistance = 10.0; // The default is 5.0
MDOUBLE minPairwiseDistance = 0.0000001; // The default
likeDist likeDist1(_sp,_toll,maxPairwiseDistance,minPairwiseDistance,_unObservableData_p);
MDOUBLE initGuess = _distance;
_distance = likeDist1.giveDistance(_ctc,_likeDistance,initGuess);
assert(_distance>=0);
}