package dr.evomodel.substmodel; import dr.evolution.datatype.Microsatellite; import dr.inference.model.Parameter; import dr.inference.model.Variable; import java.util.ArrayList; /** * @author Chieh-Hsi Wu * * An abstract for One Phase Microsatellite Models */ public abstract class OnePhaseModel extends MicrosatelliteModel{ protected ArrayList<Variable<Double>> nestedParams = null; /** * Constructor * * @param name Model name * @param microsatellite Microsatellite data type * @param freqModel Equilibrium frequencies * @param parameter Infinitesimal rates */ public OnePhaseModel(String name, Microsatellite microsatellite, FrequencyModel freqModel, Parameter parameter){ super(name, microsatellite, freqModel, parameter); nestedParams=new ArrayList<Variable<Double>>(); } /* * adding the parameters only if its not a submodel. */ protected void addParam(Variable<Double> param){ if(isNested){ nestedParams.add(param); }else{ super.addVariable(param); } } /* * get the parameters in this submodel */ public Variable<Double> getNestedParameter(int i){ return nestedParams.get(i); } /* * get number of nested parameters in the submodel */ public int getNestedParameterCount(){ return nestedParams.size(); } /* * The One Phase Models are special cases of the birth-death chain, * and therefore we can use this to calculate the stationay distribution * given a infinitesimal rate matrix. */ public void computeStationaryDistribution(){ if(useStationaryFreqs){ computeOnePhaseStationaryDistribution(); } super.computeStationaryDistribution(); } }