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

23 lines
780 B
C++

// $Id: fromCountTableComponentToDistance2USSRV.cpp 962 2006-11-07 15:13:34Z privmane $
#include "fromCountTableComponentToDistance2USSRV.h"
#include "likeDist.h"
#include <cassert>
fromCountTableComponentToDistance2USSRV::fromCountTableComponentToDistance2USSRV(
const countTableComponentGam& ctcBase,
const countTableComponentHom& ctcSSRV,
const ussrvModel &model,
MDOUBLE toll,
MDOUBLE brLenIntialGuess ) : _model(model), _ctcBase(ctcBase), _ctcSSRV(ctcSSRV) {
_distance = brLenIntialGuess ;//0.03;
_toll = toll;
}
void fromCountTableComponentToDistance2USSRV::computeDistance() {
likeDist2USSRV likeDist1(_model,_toll);
MDOUBLE initGuess = _distance;
_distance = likeDist1.giveDistance(_ctcBase,_ctcSSRV,_likeDistance,initGuess);
assert(_distance>=0);
}