states_list_0based_index = rcpp_areas_list_to_states_list(areas, maxareas = 4)
L <- list()
L[[1]] <- prune_states_list(states_list_0based_index, list_of_areas_allowed_mats[[1]])
L[[2]] <- prune_states_list(states_list_0based_index, list_of_areas_allowed_mats[[2]])
L[[3]] <- prune_states_list(states_list_0based_index, list_of_areas_allowed_mats[[3]])
L[[4]] <- prune_states_list(states_list_0based_index, list_of_areas_allowed_mats[[4]])
L[[5]] <- prune_states_list(states_list_0based_index, list_of_areas_allowed_mats[[5]])
BioGeoBEARS_run_object2 = define_BioGeoBEARS_run()
BioGeoBEARS_run_object2$force_sparse=FALSE
BioGeoBEARS_run_object2$speedup=TRUE
BioGeoBEARS_run_object2$use_optimx = TRUE
BioGeoBEARS_run_object2$calc_ancprobs=TRUE
BioGeoBEARS_run_object2$timesfn = "timeperiods.txt" # Should be in wd
BioGeoBEARS_run_object2$lists_of_states_lists_0based = L
BioGeoBEARS_run_object2$max_range_size = 4
BioGeoBEARS_run_object2$num_cores_to_use=1
BioGeoBEARS_run_object2$force_sparse=FALSE
BioGeoBEARS_run_object2$geogfn = geogfn
BioGeoBEARS_run_object2$trfn = trfn
BioGeoBEARS_run_object2 = readfiles_BioGeoBEARS_run(BioGeoBEARS_run_object2)
BioGeoBEARS_run_object2 = section_the_tree(inputs=BioGeoBEARS_run_object2, make_master_table=TRUE, plot_pieces=FALSE)
BioGeoBEARS_run_object2$return_condlikes_table = TRUE
BioGeoBEARS_run_object2$calc_TTL_loglike_from_condlikes_table = TRUE
BioGeoBEARS_run_object2$calc_ancprobs = TRUE
BioGeoBEARS_run_object2$print_optim = FALSE # Avoid lnl printing
res2 = bears_optim_run(BioGeoBEARS_run_object2)
Res2Dec <- plot_BioGeoBEARS_results(res2, analysis_titletxt = NULL, addl_params=list("j"),
plotwhat="pie", label.offset=0.7, tipcex=0.6,
statecex=0.4, splitcex=0.2, titlecex=0.6, plotlegend = FALSE,
plotsplits=TRUE, cornercoords_loc=scriptdir,
include_null_range=TRUE,
tr = NULL, tipranges = NULL)
# Using lists_of_states_lists_0based with modified calc_loglike_sp_stratified gives
# now the same result than areas_allowed
################################################################
source("calc_loglike_sp_stratified.R") # Should be in wd
res3 = bears_optim_run(BioGeoBEARS_run_object2)
Res3Dec <- plot_BioGeoBEARS_results(res3, analysis_titletxt = NULL, addl_params=list("j"),
plotwhat="pie", label.offset=0.7, tipcex=0.6,
statecex=0.4, splitcex=0.2, titlecex=0.6, plotlegend = FALSE,
plotsplits=TRUE, cornercoords_loc=scriptdir,
include_null_range=TRUE,
tr = NULL, tipranges = NULL)