I am trying to run an DEC+J analysis on a big dataset (360 terminals and 10 Areas).
All the input files are working fine, and the check_BioGeoBEARS_run() say it is a go.
setwd("~/")
source("scripts/biogeobears-utilities.R")
require(parallel)
require(FD)
require(snow)
require(minqa)
load.biogeobears()
calc_loglike_sp = compiler::cmpfun(calc_loglike_sp_prebyte)
calc_independent_likelihoods_on_each_branch = compiler::cmpfun(calc_independent_likelihoods_on_each_branch_prebyte)
decj.potamo <- define_BioGeoBEARS_run()
phylo.path <- "data/potamo_ultra.newick"
moref(phylo.path)
potamo.tree <- read.tree(phylo.path)
# uncomment if needed
# plot(potamo.tree)
# prt(potamo.tree, get_tipnames = T)
decj.potamo$trfn = "data/potamo_ultra.newick"
decj.potamo$trfn #check if correctly assigned
geo.path <- "data/potamo_code_geog.data"
moref(geo.path)
getranges_from_LagrangePHYLIP(lgdata_fn=geo.path) #infer ranges from phylip file
decj.potamo$geogfn = "data/potamo_code_geog.data"
decj.potamo$geogfn #check if correclty assigned
decj.potamo = configure.standard.biogeobears.run(decj.potamo)
decj.potamo$BioGeoBEARS_model_object@params_table["j","type"] = "free"
decj.potamo$BioGeoBEARS_model_object@params_table["j","init"] = 0.0001
decj.potamo$BioGeoBEARS_model_object@params_table["j","est"] = 0.0001
decj.potamo$BioGeoBEARS_model_object@params_table["j","min"] = 0.0001
decj.potamo$BioGeoBEARS_model_object@params_table
decj.potamo$return_condlikes_table = T
decj.potamo$calc_TTL_loglike_from_condlikes_table = T
decj.potamo$calc_ancprobs = T
check_BioGeoBEARS_run(decj.potamo)
decj.potamo
decj.results = bears_optim_run(decj.potamo)
save(decj.results, file="results/decj.potamo.Rdata")